干吗非要用splite的点击的, 用panel2的双机就行了呵
(两个panel、一个splitter,panel1和splitter的align属性都设为altop,
panel2的align设为alclient,splitter1的cursor设为crVSplit)
//双击panel2 翻转panel1 显示隐藏状态
procedure TForm1.Panel2DblClick(Sender: TObject);
begin
Panel1.Visible := not Panel1.Visible;
end;
(效果图如果看不到请下载附件)
onshow隐藏panel1代码
procedure TForm1.FormShow(Sender: TObject);
begin
Panel1.Visible := False;
end;
splitter貌似有一个open 或close 方法(可能不是这名,时间太久了),你在onshow时执行这个方法就可以!
另外,还有第三方控件也是支持的!
gao_cz说得对,但DELPHI自带的这玩意儿太不好看了,有一个三方组件非常好,和WINXP的相关控件一样。