首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

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

打印文章

分享到:
经常看到一些软件上的工具栏可以拖动,或者放入一个特定的Panel中,就象DELPHI IDE一样,可以把Watch List窗口放入IDE中。
仔细研究了下,呵呵,终于可以实现了:
1,在一个Form1中,放入Panel1:
属性:  
  Align:alleft;  
  Docksite:true;  
  UseDockManager:true;  
2,添加一个新的窗体Form2,上面可以随便放些什么控件
属性:
    anchors:[aktop,akbottom,akleft,akright];  
  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)环境下测试通过。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章