Delphi中停靠技术的实现_Deiphi窗体文章_Deiphi_编程开发

Delphi中停靠技术的实现

日期：2008-10-20 22:03:37　　　　来源：

　·在Delphi7中实现停靠功能　·Delphi中的时间操作技术
　·Delphi中实现让TListView接收文件拖放

e := False;

    Message.DockSource.Control.ManualDock(Host, nil, alNone);

    TDockableForm(Message.DockSource.Control).DockSite := False;

    Host.Visible := True;

End;

end;

先解释一下上面的代码，首先创建TTiledHost的实例，然后用ManualDock函数把自己停靠到TTiledHost，把Message.DockSource.Control也停靠到TTiledHost，这样就完成了窗体的相互停靠，当然，要是我们要程序产生停靠的预览效果，就在DockableForm的OnDockOver事件里加入代码：

procedure TDockableForm.FormDockOver(Sender: TObject;

  Source: TDragDockObject; X, Y: Integer; State: TDragState;

  var Accept: Boolean);

var

  ARect: TRect;

begin

  Accept := Source.Control is TDockableForm;

  if Accept then

  begin

    ARect.TopLeft := ClientToScreen(Point(0, 0));

    ARect.BottomRight := ClientToScreen(

      Point(ClientWidth div 2, ClientHeight));

    Source.DockRect := ARect;

  end;

end;

怎么样，效果还可以吧。对了，需要注意的是，用ManualDock函数可以安全的完成停靠功能，不要用Dock函数。ManualDock函数有一些参数：

function ManualDock(NewDockSite: TWinControl; DropControl: TControl = nil; ControlSide: TAlign = alNone): Boolean;

NewDockSite：要被停靠的窗体；

DropControl：已经存在于NewDockSite的TControl，在这里可以把它设成nil;

ControlSide: 停靠的位置，可以是上，下，左，右，全部等。

当然，我们也可以让TiledHost也具有和LeftDockPanel一样有被停靠的功能，只要把TiledHost看成前面的LeftDockPanel，添加一些属性和事件；把TiledHost看成DockableForm，

就可以有停靠的功能了。具体的做法这里不再阐述了，相信对VCL有深刻研究的大虾都知道怎么做了。

下面我来讲一下两个窗体怎样停靠成PageControl样式。

首先创建一个窗体，叫TabHost，在它上面放一个PageControl,Align属性设成alClient,让它占满整个TabHost，别忘了把PageControl的DockSite属性设成True.

然后我们依次加入代码：

procedure TDockableForm.FormDockOver(Sender: TObject;

  Source: TDragDockObject; X, Y: Integer; State: TDragState;

  var Accept: Boolean);

var

  ARect: TRect;

begin

  Accept := Source.Control is TDockableForm;

  if Accept then

  begin

    ARect.TopLeft := ClientToScreen(ClientRect.TopLeft);

    ARect.BottomRight := ClientToScreen(ClientRect.BottomRight);

    Source.DockRect := ARect;

  end;

和

procedure TDockableForm.CMDockClient(var Message: TCMDockClient);

var

  Host: TForm;

begin

  if Message.DockSource.Control is TDockableForm then

  begin

      Host := TTabHost.Create(Application);

      Host.BoundsRect := Self.BoundsRect;

      Self.ManualDock(TTabHost(Host).PageControl1, nil, alClient);

      Message.DockSource.Control.ManualDock(TTabHost(Host).PageControl1, nil, alClient);

      Host.Visible := True;

       End;

End;

代码的具体意思在这里就不再解释了，同理也可以让TabHost具有停靠和被停靠的功能。还需要说明一下，TPageControl封装了一些对停靠的支持，它捕获了CM_DOCKCLIENT，

CM_DOCKNOTIFICATION，CM_UNDOCKCLIENT，WM_LBUTTONDBLCLK消息处理停靠动作。具体可以查看TPageControl的原代码。

工具条的停靠也一样，在主窗体上放一个ControlBar或CoolBar，把他们的DockSite设成True；再在上面放ToolBar, ToolBar的DragKind属性设成dkDock，DragMode属性设为dmAutomatic。在这里，TControl有一个属性叫FloatingDockSiteClass，它的类型是TWinControl的引用(class of TWinControl),只要在主窗口创建时，把ToolBar的FloatingDockSiteClass属性设成某一个窗体A，比如在设计时A这个窗体叫ToolBarDockForm,但在程序里面不用显式的创建A，Delphi会自动创建，当ToolBar被拖动出来时，Delphi自动把它装载到ToolBarDockForm里，当然ToolBarDockForm也要象上面提到的DockableForm一样设置一定的属性和添加一些代码。

讲了一大堆，还是没有把Delphi支持的停靠功能全部讲完，据我所知，还有很多。还是把它们列出来供大家参考（前面介绍的就省略了）

属性：

1．TControl. TBDockHeight               //存储停靠控件在停靠时的的高度；

2．TControl. LRDockWidth                //存储停靠控件在停靠时的的宽度；

3．TControl. UnDockHeight               //存储停靠控件在浮动时的的高度；

4．TControl. UnDockWidth                //存储停靠控件在浮动时的的宽度；

5．TControl. HostDockSite           //存储被停靠控件的实例

6．TControl. FloatingDockSiteClass    //前面讲过

7．TControl. Floating                        //是否浮动

9．TControl. DockOrientation        //停靠控件的方位

10．TWinControl .DockClientCount  //在这个控件里面有几个已经停靠的控件

11．TWinControl . DockClients      //在这个控件里面有已经停靠的控件的列表

12．TWinControl . DockManager    //一个控制停靠的类，其实是一个ActiveX控件，和它对应的类是TDockTree.

13. TWinControl .UseDockManager   //是否使用DockManager。



方法：

1．TControl.ManualFloat            //和ManualDock相对应，使浮动。

2．TControl.ReplaceDockedControl  //替换停靠控件

3．TWinControl .DoAddDockClient

4．TWinControl .DockDrop

5．TWinControl .DockOver

6．TWinControl .DoDockOver

7．TWinControl .DoUnDock

消息：

CM_DOCKCLIENT，

CM_DOCKNOTIFICATION，

CM_UNDOCKCLIENT

如果读者想对停靠技术有更深入的了解，可以看Delphi自带的例子,路径是Delphi5\Demo\Docking.

本人是菜鸟一个，上面所讲的内容，错误再所难免，希望大虾们不要笑话。

如有疏漏，还请各位指教，谢谢。　[1]

--->雷刀 V1.39 Beta┊采用最先进的P2P技术集合Emule BT功能┊简体中文绿色免费版
--->Web迅雷 V1.8.3.127┊基于超多资源超线程技术的下载工具┊绿色下载站免安装版
--->PPStream P2P流媒体播放器 V1.0.4.825 Final┊完全基于P2P技术的网络电视┊免安装版
--->豪杰超级解霸 3500[1120]┊全编码格式影音播放、音频技术┊简体中文特别版
--->IE V6.0.2900.2180┊ IE是微软WindowsXP中的意向核心技术┊简体中文绿色免费版
Tags:　停靠技术实现

Delphi中停靠技术的实现

Delphi中停靠技术的实现

Delphi4的窗口融合技术

DELPHI中利用API函数实现多态FORM

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

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

◎→	热门资源
DELPHI中利用对象的常用属性制作 Delphi中巧妙利用RES文件 Delphi中如何调用VC++创建的动态 Delphi中如何控制Windows任务栏的 Delphi中如何取得系统支持的颜色 Delphi中设置默认打印机 Delphi中实现让TListView接收文件