开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DockForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

DockForm.pas：源码内容
  1. unit DockForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Menus;
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Button2: TButton;
  14.     Button3: TButton;
  15.     Memo1: TMemo;
  16.     Splitter1: TSplitter;
  17.     PopupMenu1: TPopupMenu;
  18.     DocktoPanel1: TMenuItem;
  19.     DocktoForm1: TMenuItem;
  20.     Floating1: TMenuItem;
  21.     Splitter2: TSplitter;
  22.     ListBox1: TListBox;
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure Panel1DockDrop(Sender: TObject; Source: TDragDockObject; X,
  25.       Y: Integer);
  26.     procedure ControlStartDock(Sender: TObject;
  27.       var DragObject: TDragDockObject);
  28.     procedure Panel1DockOver(Sender: TObject; Source: TDragDockObject; X,
  29.       Y: Integer; State: TDragState; var Accept: Boolean);
  30.     procedure DocktoPanel1Click(Sender: TObject);
  31.     procedure DocktoForm1Click(Sender: TObject);
  32.     procedure Floating1Click(Sender: TObject);
  33.     procedure FormDestroy(Sender: TObject);
  34.   private
  35.     DockFileName: string;
  36.   public
  37.     { Public declarations }
  38.   end;
  40. var
  41.   Form1: TForm1;
  43. implementation
  45. uses
  46.   DockHost;
  48. {$R *.DFM}
  50. procedure TForm1.FormCreate(Sender: TObject);
  51. var
  52.   FileStr: TFileStream;
  53. begin
  54.   // Panel1.DockOrientation := doHorizontal;
  55.   Memo1.FloatingDockSiteClass := TForm2;
  56.   ListBox1.FloatingDockSiteClass := TCustomDockForm;
  58.   // relaod the settings
  59.   DockFileName := ExtractFilePath (Application.Exename) +
  60.     'dock.dck';
  61.   if FileExists (DockFileName) then
  62.   begin
  63.     FileStr := TFileStream.Create (DockFileName, fmOpenRead);
  64.     try
  65.       Panel1.DockManager.LoadFromStream (FileStr);
  66.     finally
  67.       FileStr.Free;
  68.     end;
  69.   end;
  70.   Panel1.DockManager.ResetBounds (True);
  71. end;
  73. procedure TForm1.Panel1DockDrop(Sender: TObject; Source: TDragDockObject;
  74.   X, Y: Integer);
  75. begin
  76.   Caption := 'Docked: ' + IntToStr (Panel1.DockClientCount);
  77. end;
  79. procedure TForm1.ControlStartDock(Sender: TObject;
  80.   var DragObject: TDragDockObject);
  81. begin
  82.   Caption := 'Docking ' + (Sender as TComponent).Name;
  83. end;
  85. procedure TForm1.Panel1DockOver(Sender: TObject; Source: TDragDockObject;
  86.   X, Y: Integer; State: TDragState; var Accept: Boolean);
  87. begin
  88.   Caption := 'Docking: ' + Source.Control.Name;
  89.   Accept := True;
  90. end;
  92. procedure TForm1.DocktoPanel1Click(Sender: TObject);
  93. begin
  94.   // dock to the panel
  95.   ListBox1.ManualDock (Panel1, Panel1, alBottom);
  96. end;
  98. procedure TForm1.DocktoForm1Click(Sender: TObject);
  99. begin
  100.   // dock to the current form
  101.   ListBox1.Dock (Self, Rect (200, 100, 100, 100));
  102. end;
  104. procedure TForm1.Floating1Click(Sender: TObject);
  105. begin
  106.   // toggle the floating status
  107.   if ListBox1.Floating then
  108.     ListBox1.ManualDock (Panel1, Panel1, alBottom)
  109.   else
  110.     ListBox1.ManualFloat (Rect (100, 100, 200, 300));
  111.   Floating1.Checked := ListBox1.Floating;
  112. end;
  114. procedure TForm1.FormDestroy(Sender: TObject);
  115. var
  116.   FileStr: TFileStream;
  117. begin
  118.   if Panel1.DockClientCount > 0 then
  119.   begin
  120.     FileStr := TFileStream.Create (DockFileName,
  121.       fmCreate or fmOpenWrite);
  122.     try
  123.       Panel1.DockManager.SaveToStream (FileStr);
  124.     finally
  125.       FileStr.Free;
  126.     end;
  127.   end
  128.   else
  129.     // remove the file
  130.     DeleteFile (DockFileName);
  131. end;
  133. end.