procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=tform2.create(self);
form2.showmodal;
end;
//
procedure TForm2.FormDblClick(Sender: TObject);
begin
modalresult:=mrok;
end;
//Form2没有free
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.showmodal;
end;
begin
form2:=tform2.create(self);
form2.showmodal;
end;
//
procedure TForm2.FormDblClick(Sender: TObject);
begin
modalresult:=mrok;
end;
//Form2没有free
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.showmodal;
end;
这时候它的Visible是为:false;
可以将它设为true,将其调出。