Delphi中停靠技术的实现

现在我们可以运行这个程序了，什么？效果不好？停靠的窗体停靠停靠进去后就不见了！

哦，我差点忘了，当停靠窗体停靠时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;