实现DELPHI中的工具栏窗口融合技术
点击次数:63 次 发布日期:2008-11-09 08:37:52 作者:源代码网
|
源代码网推荐 仔细研究了下,呵呵,终于可以实现了: 源代码网推荐 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)环境下测试通过。 源代码网推荐 源代码网供稿. |
