Delphi7中实现停靠功能
来源:互联网 发布:答题王相似的软件 编辑:程序博客网 时间:2024/05/02 15:58
在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,你可以得到更好的效果,不过代码需要稍微变化,有兴趣的哥们可以试试。
我们在使用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,你可以得到更好的效果,不过代码需要稍微变化,有兴趣的哥们可以试试。
- Delphi7中实现停靠功能
- 在Delphi7中实现停靠功能
- 在Delphi7中实现停靠功能
- 在Delphi7中实现停靠功能
- Delphi7 窗口停靠效果
- C#实现仿QQ窗体停靠功能
- Delphi中停靠技术的实现
- Delphi中停靠技术的实现
- Delphi中停靠技术的实现
- MFC中实现鼠标停靠提示
- Qt中停靠窗口的实现
- Qt中停靠窗口的实现
- Delphi中停靠技术的实现
- Delphi中停靠技术的实现[转]
- Qt中停靠窗口的实现
- java实现类型QQ,MSN自动停靠隐藏功能
- Delphi7中群发电子邮件的实现
- delphi7写的个人笔记本(模版功能已经实现)
- <窗体特效〉半透明窗体 像Foxmail3.1beta的一样
- Delphi程序中操作注册表
- 在Delphi中更改墙纸
- Foxmail、MSN的消息窗体的效果
- 移动无标题栏窗口
- Delphi7中实现停靠功能
- 课堂笑话
- SQL常用命令使用方法
- 自己制作不规则窗体
- ini 文件 使用说明
- 2G内存刚刚好 浅谈4G内存对笔记本的影响
- Delphi6函数大全(1)
- Delphi6函数大全(2)
- Delphi6函数大全(3)