Question

delphi动态创建窗体

动态创建窗体注意什么？
procedure TForm1.Button1Click(Sender: TObject);
Var
MyForm:TForm;
begin
MyForm:=TForm.Create(self);
MyForm.Parent:=self;
MyForm.ShowModal;
end; 为什么无法正常进行：像无法关闭，没有任何反映。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
Var
MyForm:TForm;
begin
MyForm:=TForm.Create(self);
MyForm.Parent:=self;
MyForm.Show; //把myform.showmodal改为myform.show
end;

Answer 2

不设置Parent属性