窗体停靠

unit Unit9; //主窗体
{
  本单元目的: 演示如何使用CnPack停靠组件完成窗体停靠
  说明: 只保存并显示那些停靠窗体, 如果子窗体没有停靠,那么就不会保存
        所谓停靠包括停靠在主窗体上,也包括互相停靠子窗体.
  重要提示:
      本单元使用到了三个不常用但很有实用价值的技巧
      1 字符串与枚举值的相互转换
      2 根据字符串创建类/窗口
      3 窗体名称数组的声明使用自定义顺序类型来完成的,并且初始化数据时也很灵活.
}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CnDockFormControl, CnVIDDockStyle, CnVSNETDockStyle, CnClasses, Menus,
  IniFiles, jpeg, ExtCtrls, TypInfo;
type
  TFormName = (Form10Name, Form11, Form12, Form13);

  TForm9 = class(TForm)
    CnDockServer1: TCnDockServer;
    CnVSNETDockStyle1: TCnVSNETDockStyle;
    mm1: TMainMenu;
    Form101: TMenuItem;
    Form102: TMenuItem;
    mniForm111Menu: TMenuItem;
    Form121: TMenuItem;
    Form131: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Form102Click(Sender: TObject);
    procedure mniForm111MenuClick(Sender: TObject);
    procedure Form121Click(Sender: TObject);
    procedure Form131Click(Sender: TObject);
  private
    { Private declarations }
    FFormList: array[TFormName] of TForm;
    procedure IniFormList;
    procedure ShowFm2(AFormName: TFormName);
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

//  FormList: array[TFormName] of TForm = (nil, nil, nil, nil);

implementation
uses Unit10, Unit11, Unit12, Unit13;

{$R *.dfm}

procedure TForm9.Form102Click(Sender: TObject);
begin
  {
  if FormList[Form10Name] = nil then
    FormList[Form10Name]:= TForm10Name.Create(Self);
  ShowDockForm(FormList[Form10Name]);
  }
  ShowFm2(Form10Name);
end;

procedure TForm9.mniForm111MenuClick(Sender: TObject);
begin
{
  if FormList[Form11] = nil then
    FormList[Form11]:= TForm11.Create(Self);
  ShowDockForm(FormList[Form11]);}
  ShowFm2(Form11);
end;

procedure TForm9.ShowFm2(AFormName: TFormName);
var
  tmpstrClass: string;
begin
  tmpstrClass:= 'T'+GetEnumName(TypeInfo(TFormName), Integer(AFormName)); //枚举值转字符串
  if (fFormList[AFormName] = nil) and (GetClass(tmpstrClass) <> nil) then
    FFormList[AFormName]:= TFormClass(GetClass(tmpstrClass)).Create(Self);
  ShowDockForm(FFormList[AFormName]);
end;

procedure TForm9.Form121Click(Sender: TObject);
begin
  ShowFm2(Form12);
end;

procedure TForm9.Form131Click(Sender: TObject);
begin

  ShowFm2(Form13);
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveDockTreeToFile(ExtractFilePath(Application.ExeName) + 'DockInfo.ini');
end;

procedure TForm9.FormCreate(Sender: TObject);
var
  tmpIni: TIniFile;
  tmpStrList: TStrings;
  i, j: integer;
  ParentName, LastDockSiteName: string;
  Visible: Integer;
begin
  //ChangeFileExt(Application.ExeName, '.ini');
  IniFormList;
  if FileExists(ExtractFilePath(Application.ExeName) + 'DockInfo.ini') then
  begin
    tmpIni:= TIniFile.Create(ExtractFilePath(Application.ExeName) + 'DockInfo.ini');
    tmpStrList:= TStringList.Create;
    tmpIni.ReadSections(tmpStrList);
    for i := tmpStrList.Count - 1 downto 0 do
    begin
    if GetClass('T'+tmpStrList.Strings[i]) <> nil then
      FFormList[TFormName(GetEnumValue(TypeInfo(TFormName), tmpStrList.Strings[i]))]:=
        TFormClass(GetClass('T'+tmpStrList.Strings[i])).Create(Self);
      //注意根据类名动态创建类时,必须先将该类注册.
    end;
    LoadDockTreeFromFile(ExtractFilePath(Application.ExeName) + 'DockInfo.ini');
  end;
end;

procedure TForm9.IniFormList;
var
  i: Integer;
begin
  for i := Ord(Low(FFormList)) to Ord(High(FFormList)) do
    FFormList[TFormName(i)]:= nil;
end;

initialization
  RegisterClass(TForm10Name);
  RegisterClass(TForm11);
  RegisterClass(TForm12);
  RegisterClass(TForm13);
finalization
  UnRegisterClass(TForm10Name);
  UnRegisterClass(TForm11);
  UnRegisterClass(TForm12);
  UnRegisterClass(TForm13);
end.

============================

unit Unit10; //停靠窗体之一，其他的类似

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit9, CnClasses, CnDockFormControl;

type
  TForm10Name = class(TForm)
    CnDockClient1: TCnDockClient;
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var
  Form10: TForm10Name;

implementation

{$R *.dfm}

end.

 

=================================

//'DockInfo.ini'文件

[Form10Name]
ParentName=Form9@TopDockPanel_A_B_C_D_E_F_G
DockLeft=0
DockTop=18
DockRight=780
DockBottom=118
LastDockSiteName=!@#找不到这个窗体#@!
UnDockLeft=318
UnDockTop=206
LRDockWidth=100
TBDockHeight=118
UnDockWidth=434
UnDockHeight=250
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=0
CanDocked=1
EachOtherDocked=1
LeftDocked=1
TopDocked=1
RightDocked=1
BottomDocked=1
DockClientData=
[Form9@TopDockPanel_A_B_C_D_E_F_G]
ParentName=Form9
DockLeft=0
DockTop=0
DockRight=780
DockBottom=118
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=426
UnDockHeight=118
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=0000040000000000000000000000000000010000000000010000000001010000000000000000010100000000010A000000466F726D31304E616D6501FFFFFFFF
[Form9@TopDockPanel_A_B_C_D_E_F_G_PopupPanel]
ParentName=Form9
DockLeft=0
DockTop=0
DockRight=354
DockBottom=201
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=354
UnDockHeight=201
VSPaneWidth=0
Visible=0
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=0000040000000000000000000000000000010000000000010000000001FFFFFFFF
[Form9@BottomDockPanel_A_B_C_D_E_F_G]
ParentName=Form9
DockLeft=0
DockTop=424
DockRight=780
DockBottom=424
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=426
UnDockHeight=0
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=0000040000000000000000000000000000010000000000010000000001FFFFFFFF
[Form9@BottomDockPanel_A_B_C_D_E_F_G_PopupPanel]
ParentName=Form9
DockLeft=0
DockTop=0
DockRight=354
DockBottom=201
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=354
UnDockHeight=201
VSPaneWidth=0
Visible=0
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=0000040000000000000000000000000000010000000000010000000001FFFFFFFF
[Form12]
ParentName=Form9@LeftDockPanel_A_B_C_D_E_F_G
DockLeft=0
DockTop=18
DockRight=159
DockBottom=303
LastDockSiteName=!@#找不到这个窗体#@!
UnDockLeft=318
UnDockTop=206
LRDockWidth=160
TBDockHeight=223
UnDockWidth=434
UnDockHeight=250
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=0
CanDocked=1
EachOtherDocked=1
LeftDocked=1
TopDocked=1
RightDocked=1
BottomDocked=1
DockClientData=
[Form13]
ParentName=Form9@LeftDockPanel_A_B_C_D_E_F_G
DockLeft=163
DockTop=18
DockRight=326
DockBottom=303
LastDockSiteName=!@#找不到这个窗体#@!
UnDockLeft=318
UnDockTop=188
LRDockWidth=164
TBDockHeight=223
UnDockWidth=434
UnDockHeight=250
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=0
CanDocked=1
EachOtherDocked=1
LeftDocked=1
TopDocked=1
RightDocked=1
BottomDocked=1
DockClientData=
[Form9@LeftDockPanel_A_B_C_D_E_F_G]
ParentName=Form9
DockLeft=0
DockTop=121
DockRight=326
DockBottom=424
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=326
UnDockHeight=223
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=000004004601000000000000022F0100000100000000000100000000010100000000A30000000101460100000106000000466F726D3132010100000000460100000101460100000106000000466F726D313301FFFFFFFF
[Form9@LeftDockPanel_A_B_C_D_E_F_G_PopupPanel]
ParentName=Form9
DockLeft=0
DockTop=0
DockRight=354
DockBottom=223
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=99
UnDockHeight=223
VSPaneWidth=0
Visible=0
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=0000040000000000000000000000000000010000000000010000000001FFFFFFFF
[Form11]
ParentName=Form9@RightDockPanel_A_B_C_D_E_F_G
DockLeft=0
DockTop=18
DockRight=414
DockBottom=303
LastDockSiteName=!@#找不到这个窗体#@!
UnDockLeft=318
UnDockTop=206
LRDockWidth=415
TBDockHeight=100
UnDockWidth=434
UnDockHeight=250
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=0
CanDocked=1
EachOtherDocked=1
LeftDocked=1
TopDocked=1
RightDocked=1
BottomDocked=1
DockClientData=
[Form9@RightDockPanel_A_B_C_D_E_F_G]
ParentName=Form9
DockLeft=366
DockTop=121
DockRight=780
DockBottom=424
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=100
UnDockHeight=223
VSPaneWidth=0
Visible=1
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=00000400000000000000000000000000000100000000000100000000010100000000000000000101000000000106000000466F726D313101FFFFFFFF
[Form9@RightDockPanel_A_B_C_D_E_F_G_PopupPanel]
ParentName=Form9
DockLeft=0
DockTop=0
DockRight=354
DockBottom=223
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=0
TBDockHeight=0
UnDockWidth=99
UnDockHeight=223
VSPaneWidth=0
Visible=0
BorderStyle=0
WindowState=0
FormStyle=0
DockFormStyle=3
CanDocked=0
EachOtherDocked=0
LeftDocked=0
TopDocked=0
RightDocked=0
BottomDocked=0
DockClientData=0000040000000000000000000000000000010000000000010000000001FFFFFFFF
[Form9]
ParentName=
DockLeft=314
DockTop=146
DockRight=1102
DockBottom=616
LastDockSiteName=
UnDockLeft=0
UnDockTop=0
LRDockWidth=434
TBDockHeight=269
UnDockWidth=434
UnDockHeight=269
VSPaneWidth=0
Visible=1
BorderStyle=2
WindowState=0
FormStyle=0
DockFormStyle=0
CanDocked=1
EachOtherDocked=1
LeftDocked=1
TopDocked=1
RightDocked=1
BottomDocked=1
DockClientData=