怎样让应用程序一运行就有停靠窗体

Question

我想让程序一运行就有了一个停放在主FORM的PANEL1上的一个停靠窗体，而不是手动的拖放上去的，请问怎样做

Answer 1

在主Form上放一個Panel1 然后在工程文件里這樣寫,看你要的是不是這種效果
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}
var
  aform1 : TForm1 ;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  aform1 := TForm1.Create(Application) ;
  aform1.Parent := Form1.Panel1 ;
  aform1.Top := 0 ;
  aform1.Left := 0 ;
  aform1.Show ;
  Application.Run;
end.

Answer 2

呵呵.建个form,然后把borderstyle 设为 bsToolWindow,然后在formcreate事件里把它show出来

Answer 3

FFileTreeViewForm.ManualDock(LeftDockPanel,LeftDockPanel,alTop);

Answer 4

同上。要实现拖放，只需将窗体的docksite:=true;将需要拖放的控件的dragkind:=dkdock,dragmode:=dmAutomatic即可，可在程序中设计。