在Delphi7中实现停靠功能

原创 2004年04月13日 14:15:00
在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,你可以得到更好的效果,不过代码需要稍微变化,有兴趣的哥们可以试试。

Delphi 停靠技术的应用2(窗体之间的相互停靠,引入宿主窗体)

Delphi的可停靠窗体间可以相互停靠,而且花样还很多,可以停靠成并排的,也可以停靠成PageControl样式的,两个可停靠窗体合并后的窗体又可以再和别的可停靠窗体合并,形成树状。下面来介绍这方面的...
  • xiongmao000738
  • xiongmao000738
  • 2011年10月10日 21:01
  • 3905

在Delphi7中实现停靠功能

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 11:40
  • 178

Delphi的窗体停靠

Delphi的窗体停靠frm2 = TForm2.Create(self); frm2.ManualDock(Panel2, nil, alClient) 为了避免停靠frm2时闪烁,可提前设置frm...
  • shuaihj
  • shuaihj
  • 2013年02月19日 09:18
  • 1880

在Delphi7中实现停靠功能

在Delphi7中实现停靠功能我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能,如果对这一部分不熟练时,通常会到CSDN等网站寻找各种相关的控件,或者参考Delphi自...
  • dingligang
  • dingligang
  • 2005年01月11日 16:52
  • 459

Delphi7中实现停靠功能

在Delphi7中实现停靠功能我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能,如果对这一部分不熟练时,通常会到CSDN等网站寻找各种相关的控件,或者参考Delphi自...
  • simonhehe
  • simonhehe
  • 2007年08月03日 08:17
  • 734

Delphi7 窗口停靠效果

 实现目的:       实现MainForm中对DockForm的停靠,相当于VC中的工具栏停靠。       结果先让大家看看: (靠!看不到!)说明:       在开始停靠的时候我们先了解一下...
  • dingdingko
  • dingdingko
  • 2008年04月14日 21:06
  • 1407

VC界面(停靠窗口) (转载)

 轻松实现类VC界面(停靠窗口) (转载)                                       一、实现原理图中两个窗口的实现类是从CControlBar派生出来的,我们并不需...
  • shugen
  • shugen
  • 2007年11月08日 17:16
  • 2829

轻松实现类VC界面(停靠窗口) (转载)

 一、实现原理图中两个窗口的实现类是从CControlBar派生出来的,我们并不需要从头到尾实现该类,因为Cristi Posea先生已经为我们实现了一个称为CSizingControlBar的类,而...
  • yangsen2016
  • yangsen2016
  • 2007年05月26日 09:27
  • 8729

另类的CDialogBar——可停靠对话框的实现方法

本文大部分思路来自于《VISUAL C++ 6.0 MFC 类库参考手册》一书!          CDialogBar在MFC中就是提供控制条形式的非模态对话框。          其使用过程很...
  • txg703003659
  • txg703003659
  • 2012年05月10日 06:12
  • 5138

MFC可停靠菜单栏的创建过程

VS2010创建的MFC单文档工程中,菜单栏也是可停靠。
  • hyhnoproblem
  • hyhnoproblem
  • 2014年04月12日 20:21
  • 1493
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在Delphi7中实现停靠功能
举报原因:
原因补充:

(最多只允许输入30个字)