MDI Form的问题？

Question

procedure TForm1.systemnumber1Click(Sender: TObject);
var
form2:TFORM2;
begin
form2:=tform2.create(application);
//form2.parent:=panel1;   //去掉这一句
form2.show; // 这一名要与不要都是一样的错误。
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;

Answer 1

procedure TForm1.systemnumber1Click(Sender: TObject);
{
var
form2:TFORM2;
}
begin
form2:=tform2.create(application);
//form2.parent:=panel1;  //去掉这一句
{form2.show; // 这一名要与不要都是一样的错误。}
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;

Answer 2

Form2不要设为fsMDIchild，就可以了，你试一下！

Answer 3

我建议你去读一下DELPHI5开发人员指南,上面专门有一章讲述MDI.