请问这是什么控件:窗口分两列(像Outlook),左边边框上有一个箭头,可以用来隐藏左边的窗口(100分)

  • 主题发起人 主题发起人 lovelypengpeng
  • 开始时间 开始时间
L

lovelypengpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
而且很漂亮(java的swing风格)
 
这种功能不需要控件,编程就可以实现:
在窗体上放一个COOLBAR ,COOLBAR 的Align为alTop,再放一TOOLBAR在COOLBAR上面,在
TOOLBAR 上点击右键新建一TOOLBUTTON
放一Panel1在窗体上,设Align为alleft,放一splitter1在窗体上,设Align为alleft,
宽度为1,放一Panel2在窗体上,设Align为alclient。
定义一全局变量
var
bHide:Boolean;
在toolbutton1的click事件中写入如下代码:
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
if not bHide then
begin
Self.Width :=Panel2.Width;
Panel1.Visible :=False;
bHide:=True;
end
else
begin
Self.Width :=Panel2.Width +Panel1.Width ;
Panel1.Visible :=True;
bHide:=False;
end;
end;
 
应该有现成控件的吧
 
如果代码不长的话赞成自己写代码
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部