窗口融合的问题

Question

我初始时建立了2个TForm的窗体，在form1里有一个panel1，我把它的属性dock和use
dockmangement 设置为True，但是form2移上去时并没有融合。我看到一个例子使用的Tscreensaverform，我没有找到这种form类型，而且移动它时不会立刻移动而是有一个预览的外筐，我用form做不到。是不是我的form设置不对，还是需要其他的代码码，帮帮我，谢谢拉

Answer 1

Delphi中停靠技术的实现 随着软件技术的不断进步，软件界面也越来越美观，操作也越来越方便。综观市面上比较专业的各种软件，我们会发现大部分都提供窗体停靠的功能，特别象工具软件，基本上都或多或少有停靠功能。自然，Delphi也支持停靠，而且她和VCL紧密结合，对于广大的Delphi程序员来说更是一大福音。让我们省去枯燥的编码时间。把注意力集中在核心程序的构思上。 先让我们来复习一下VCL的结构，在TWinControl类中有一个DockSite属性(boolean),它的作用是是否允许别的控件停靠在它的上面，在TControl类中有一个DragKind属性，如果要这个控件能停靠在别的控件上，就把DragKind属性设成dkDock。就这么简单，只要设置一下属性，一个支持停靠的程序就完成了。当然，上面说的只是最最基本的步骤，有了以上两步，我们就可以继续编写代码实现更复杂的功能。一般的支持停靠的程序都可以在主窗口的上下左右停靠，也就是说在主窗口的边上放上能被停靠的控件比较好(只要是从TWinControl继承的都行)，一般我们都选择TPanel，为了便于读者理解，我们可以假定主窗口的左边可以停靠，所以在主窗口上放一个Align属性为alLeft的Panel，取名为LeftDockPanel，宽度为0，DockSite属性为True，当然我们的LeftDockPanel应该是可以改变大小的，所以在它右边再放一个TSplitter，取名为LeftSplitter，Align属性为alLeft。接下来就是停靠控件了，一般的程序停靠控件都是窗体，所以我们也建一个窗体，取名叫DockableForm，DragKind属性设成dkDock，DragMode属性设为dmAutomatic(自动停靠)。现在我们可以运行这个程序了，什么？效果不好？停靠的窗体停靠停靠进去后就不见了！ 哦，我差点忘了，当停靠窗体停靠时Delphi会产生一些事件，他们分别是1．OnDockOver(Sender: TObject; Source: TDragDockObject;      X, Y: Integer; State: TDragState; var Accept: Boolean);2．OnDockDrop(Sender: TObject; Source: TDragDockObject;      X, Y: Integer);3．OnGetSiteInfo(Sender: TObject; DockClient: TControl;      var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);4．OnStartDock(Sender: TObject;      var DragObject: TDragDockObject);5．OnEndDock(Sender, Target: TObject; X, Y: Integer);6．OnUnDock(Sender: TObject; Client: TControl;      NewTarget: TWinControl; var Allow: Boolean);哇，这么多，别急，让我细细道来：先让我们来看看第一个事件OnDockOver是在停靠控件(DockableForm)掠过被停靠控件(LeftDockPanel)时触发的。Source包含了停靠—拖动操作的信息，其中有一个重要的属性是Control，就是DockableForm，另一个重要的属性是DockRect，就是停靠的位置；X,Y是鼠标的位置，State的状态有dsDragEnter, dsDragLeave, dsDragMove，分别表示拖动进入，拖动离开，拖动移动；Accept是是否同意停靠的意思。OnDockOver事件主要作用是控制停靠窗体的预览位置，下面我们来加入以下代码：procedure TMainForm.LeftDockPanelDockOver(Sender: TObject;  Source: TDragDockObject; X, Y: Integer; State: TDragState;  var Accept: Boolean);var  ARect: TRect;begin  Accept := Source.Control is TDockableForm;  if Accept then  begin//修改预览停靠位置ARect.TopLeft := LeftDockPanel.ClientToScreen(Point(0, 0));    ARect.BottomRight := LeftDockPanel.ClientToScreen(      Point(Self.ClientWidth div 3, LeftDockPanel.Height));    Source.DockRect := ARect;  end;end; 现在再运行程序，当你把DockableForm拖动到主窗口左边时，已经出现了预览停靠位置，也就是虚线包含的范围。怎么？窗体又不见了？那当然了，我们只是讲了OnDockOver，还没详细讲解OnDockDrop呢，它才是决定停靠窗体在哪里出现的罪魁祸首：OnDockDrop(Sender: TObject;  Source: TDragDockObject; X, Y: Integer);参数和OnDockOver差不多，只是少了State: TDragState和var Accept: Boolean它是在停靠窗体进入被停靠控件时发生的，作用是控制停靠窗体的最终位置。下面添加如下代码：procedure TMainForm.LeftDockPanelDockDrop(Sender: TObject;  Source: TDragDockObject; X, Y: Integer);Begin  LeftDockPanel.Width := ClientWidth div 3;  LeftSplitter.Left := LeftDockPanel.Width + LeftSplitter.Width;End;现在再运行程序，哇塞，成功了。出现了一个和Delphi的IDE完全一样的停靠窗体，上面是两条横线，用来把它拖出来，右上角有一个小X是用来关闭的。不过好景不长，当我们把它关闭时，装载DockableForm的LeftDockPanel不能还原，还是霸占着主窗口的客户区，怎么办？嘻嘻，忘了告诉你们了，其实Delphi早就为我们作好了一切。请打开DockableForm的关闭事件，你会发现原来当你点击右上角那个小X关闭DockableForm时，它会触发DockableForm的OnClose事件，在OnClose事件中把LeftDockPanel的宽度设为0就行了。procedure TDockableForm.FormClose(Sender: TObject;  var Action: TCloseAction);begin  MainForm.LeftDockPanel.Width := 0;  Action := caHide;end; 以上所讲的是如何在主窗口上停靠窗体，原代码都通过测试。同理，我们可以在主窗口的右边，下边，上边都实现停靠功能。对了，刚才我们只介绍了OnDockOver和OnDockDrop,忘了介绍别的事件，下面简单介绍一下：3．OnGetSiteInfo(Sender: TObject; DockClient: TControl;      var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);这个事件是在窗体移动时触发的，所以经常触发，它里面的DockClient就是TDockableForm，有一个引用参数叫CanDock，和OnDockOver中的Accept差不多，都是询问是否允许停靠。在这里可以不写，CanDock默认就是True，也可以写上CanDock := DockClient is TDockableForm; 4．OnStartDock(Sender: TObject;      var DragObject: TDragDockObject);5．OnEndDock(Sender, Target: TObject; X, Y: Integer);6．OnUnDock(Sender: TObject; Client: TControl;      NewTarget: TWinControl; var Allow: Boolean);这三个事件都是在DockableForm上面有用，意思分别是停靠开始，停靠结尾，不停靠(也就是被拖出来时)。OnStartDock和OnEndDock经常会被触发，OnUnDock只在停靠窗体变成浮动时触发

Answer 2

Panel1.DockSite 设置为true;
Form2.DragKind 设置为dkDock;
Form2.DragMode 设置为dmAutomatic;
如果一启动就停靠用
Form2.ManualDock(Panel1,nil,alClient);

Answer 3

Panel1.DockSite 设置为true;
Form2.DragKind 设置为dkDock;
Form2.DragMode 设置为dmAutomatic;
如果一启动就停靠用
Form2.Dock(Panel1,Panel1.ClientRect);
Form2.show