delphi7中splitter控件的问题

2025-04-25 22:18:26
推荐回答(3个)
回答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;

回答2:

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

回答3:

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