• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

实现DELPHI中的工具栏窗口融合技术_Delphi

Delphi 搞代码 3年前 (2018-08-09) 156次浏览 已收录 0个评论

经常看到一些软件上的工具栏可以拖动,或者放入一个特定的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 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址