把form1的button1click事件改一下：
procedure TForm1.Button1Click(Sender: TObject);
var
rf:TForm2;
begin
try
if form2= nil then
begin
rf:=TForm2.Create(self);
rf.ShowModal;
rf.Free;
end;
finally
FreeAndNil(form2);
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024