delphi自带控件可以实现啊，你给左侧用panel控件么，比如，默认设置panel2的visible为false，然后在panel1里面做点击事件，onclick以后panel2的visible变true，就好比是拉出来了，具体的美化的话就你自己来了。对了，还要给panel的每个设置好Align属性，一个个alTop下来，这样屏幕变大变小都不会影响控件
用raise控件，就可以了。rzgroup可以完全实现你的功能！
1stclass控件 一拖搞定
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024