搞代码

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

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~