实现DELPHI中的工具栏窗口融合技术_Delphi
经常看到一些软件上的工具栏可以拖动,或者放入一个特定的Panel中,就象Delphi IDE一样,可以把Watch List窗口放入IDE中。
仔细研究了下,呵呵,终于可以实现了:
1,在一个Form1中,放入Panel1:
属性:
Align:alleft;
Docksite:true;
UseDockManager:true;
2,添加一个新的窗体Form2,上面可以随便放些什么控件
属性:
anchors:[aktop,akbottom,akleft,akright];
http://www.gaodaima.com/65645.html实现DELPHI中的工具栏窗口融合技术_Delphi
dragmode:dmautomatic;
dragkind:dkdock
3,在Form1中包含Form2的声名
uses Unit2;
3,在窗体Form1上放置一个Button1,用于调出Form2窗体
设置Button1的OnClick事件,对应的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;
到此为止,程序全部完成,So Easy...
程序在Delphi5+Windows2000(p)环境下测试通过。
欢迎大家阅读《实现DELPHI中的工具栏窗口融合技术_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码
原创文章,转载请注明: 转载自搞代码
本文链接地址: 实现DELPHI中的工具栏窗口融合技术_Delphi

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~
发表评论