Dock

Question

我创建两个窗口：form1,form2.
怎样在启动的时候 用程序 将form2停泊在form1上？

Answer 1

///////////////////////////////////////////
工程文件
//////////////////////////////////////////
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  form1.Show;
  Application.Run;
end.
//////////////////////////////////
设置form1
//////////////////////////////////
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.CreateForm(TForm2, Form2);
   form2.ManualDock(form1.Panel1 );
end;end.
其中form1.Panel1.dockset:=true; 
//////////////////////////////////////////////////
设置form2
////////////////////////////
from2的
dragkind:=dkDock;
dragmode:=dmAutomatic;
给分吧！！