在Delphi7中实现停靠功能_Deiphi窗体文章_Deiphi_编程开发

在Delphi7中实现停靠功能

日期：2008-10-20 22:10:25　　　　来源：

　·DELPHI中的消息处理机制(1)　·软件中复活节彩蛋的实现
　·Delphi中停靠技术的实现　·在Delphi中应用AOP实现日志功能

在Delphi7中实现停靠功能。
　　在Delphi7中实现停靠功能
我们在使用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响应事件代码相同。
4、上下Panel添加 OnDockDrop、OnDockOver、OnUnDock事件如下：
procedure TfrmMain.pnlBottomUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
if (Sender as TPanel).DockClientCount = 1 then
begin
(Sender as TPanel).Height := 1;
end;
end;

procedure TfrmMain.pnlBottomDockDrop(Sender: TObject;
Source: TDragDockObject; X, Y: Integer);
begin
(Sender as TPanel).Height := max(source.Control.UndockHeight,(Sender as TPanel).Height);
end;

procedure TfrmMain.pnlBottomDockOver(Sender: TObject;
Source: TDragDockObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
begin
if State = dsDragEnter then
begin
(Sender as TPanel).Height := max(Source.Control.UndockHeight, (Sender as TPanel).Height);
end
else
begin
if State = dsDragLeave then
begin
(Sender as TPanel).Height := 1;
end;
end;
end;
上下两个Panel响应事件代码相同。
5、创建新的窗体用于停靠到主窗体。
6、设置新窗体DragKind为dkDock，DragMode为dmAutomatic。
7、在新窗体OnClose事件中添加如下代码：
if self.HostDockSite <> nil then
begin
self.ManualDock(nil);
end;
Action := caHide;
8、设置新窗体不自动创建。
9、在主创体中创建新窗体并显示。记住：用Show,不要用ShowModal。
这种方法是一个不很规范的方法，如果需要更细致的控制，最好参考Delphi的Docking示例。如果将此例中的某个Panel更改为TabControl或者PageConrol，你可以得到更好的效果，不过代码需要稍微变化，有兴趣的哥们可以试试。　[1]

--->QQ游戏大厅 2006 Final Patch3┊已附带QQ游戏大厅的多开功能┊纯净绿色特别版
--->QQ伴侣安全卫士 2.0.0┊已增加了老板键和一键锁定等功能┊简体中文绿色免费版
--->本地挂Q软件 TenyQQ V2.0 Beta 1┊本地批量挂Q软件、消息转发功能┊简体中文绿色特别版
--->迅雷国际版 Gigaget V5.5.1.241┊附带左右键选择下载功能┊绿色下载站免安装特别版
--->Neo Mule V4.25 R20061022┊P2P分享工具、屏蔽吸血骡功能┊汉化绿色特别版
Tags:　 Delphi 实现停靠功能

在Delphi7中实现停靠功能

用Delphi编制趣味动画鼠标

Delphi中用API实现在MSN的信息提示

Delphi中停靠技术的实现

模糊照片也能变高清晰 Photoshop的功能

◎→	本类最新
DELPHI动态生成控件 Delphi编程中创建一个启动闪现窗在win95,win98下实现半透明的窗口拖动无标题栏窗体的方法用Delphi 控制窗体的大小使MDI窗口有一个背景图象或使它平软件启动画面中启动状态的显示

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
DELPHI中的消息处理机制(1) 用Delphi编制趣味动画鼠标资源文件的应用怎样向SQL Server插入带有Image字支持D6的FastReport2.45 (报表控只允许建立一次子窗体的MDI程序重新认识Delphi(2)