MDI窗体的问题?

Question

我想动态创建一个子窗体
一.program MySystem;uses
  Forms,
  Main in 'Main.pas' {Form5},
  ChildA in 'ChildA.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm5, Form5);
  //Application.CreateForm(TForm1, Form1);   这是不用因为是自动创建
  Application.Run;
end.我在主窗体中创建子窗体了uses ChildA;procedure TForm5.btn1Click(Sender: TObject);
var
  frm: TForm1;
begin
  frm := TForm1.Create(Application);
  frm.Show;
end;问题来了,为什么子窗体出现却不在主窗体的内呢??按理只能在主窗体内移动呀,这里子窗体却可以移出主窗了??
谢谢!!

Answer 1

procedure TForm5.btn1Click(Sender: TObject);
var
  frm: TForm1;
begin
  frm := TForm1.Create(Application);
  frm.FormStyle:=fsMDIChild;//加入这句
  frm.Show;
end;
子窗体能显示,不是理想的设计时的大小呢??

Answer 2

如果你不用mdi方式，可以考虑把frm 的parent设置为主窗体，看看效果