Question

delphi7中splitter控件的问题

窗体中放了两个panel,中间放了一个splitter，点击splitter的时候上面的panel会隐藏起来，现在想在窗体onshow的时候直接把上面的panel隐藏起来，怎么操作？

Answer 1

干吗非要用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;

Answer 2

splitter貌似有一个open 或close 方法（可能不是这名，时间太久了），你在onshow时执行这个方法就可以！
另外，还有第三方控件也是支持的！

Answer 3

gao_cz说得对，但DELPHI自带的这玩意儿太不好看了，有一个三方组件非常好，和WINXP的相关控件一样。