procedure TForm1.Button1Click(Sender: TObject);VarMyForm:TForm;begin MyForm:=TForm.Create(self); MyForm.Parent:=self; MyForm.Show; //把myform.showmodal改为myform.showend;
不设置Parent属性