首页 / 软件开发 / Delphi / 教你在Delphi7中实现停靠功能

教你在Delphi7中实现停靠功能2012-01-30我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到CSDN等网站寻找各种相关的控件，或者参考Delphi自带的例程Docking，下面我给大家介绍一种能够凑乎用的简便方法。

1、在主窗口中添加四个Panel和四个Splitter，设置对齐上下左右四边。

2、设定四个Panel的属性DockSite属性为True。

3、左右Panel添加 OnDockDrop、OnDockOver、OnUnDock事件如下：

procedure TfrmMain.pnlLeftUnDock（Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean）;
begin
if （Sender as TPanel）.VisibleDockClientCount = 1 then
begin
（Sender as TPanel）.Width := 1;
end;
end;
procedure TfrmMain.pnlLeftDockDrop（Sender: TObject;
Source: TDragDockObject; X, Y: Integer）;
begin
（Sender as TPanel）.Width := max（source.Control.UndockWidth,（Sender as TPanel）.Width）;
end;
procedure TfrmMain.pnlLeftDockOver（Sender: TObject;
Source: TDragDockObject; X, Y: Integer; State: TDragState;
var Accept: Boolean）;
begin
if State = dsDragEnter then
begin
（Sender as TPanel）.Width := max（Source.Control.UndockWidth, （Sender as TPanel）.Width）;
end
else
begin
if State = dsDragLeave then
begin
（Sender as TPanel）.Width := 1;
end;
end;
end;

左右Panel响应事件代码相同。