ManualDock 窗口融合技术

最新推荐文章于 2014-03-24 11:59:49 发布

weixin_30257433

最新推荐文章于 2014-03-24 11:59:49 发布

阅读量457

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/archive/2012/06/02/2531649.html

本文介绍了一种窗口融合技术的应用实例，通过两个窗体form1和form2的融合操作实现界面的灵活变化。利用Delphi提供的ManualDock方法进行窗体间的对接，通过按钮触发不同的对接行为。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//窗口融合技术 
{

创建2个窗体 form1 form2
panel 
button1
button2
设置panel的DockSite:=true;
}
//代码没用
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.ManualDock(Form1.Panel1,nil,alNone);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    form2.ManualDock(nil,nil,alnone);
end;