procedure TForm1.Button1Click(Sender: TObject); var F:TForm2; begin try F:= TForm2.Create(nil); F.ShowModal; finally F.Free; end; end;
时间: 2024-08-28 14:19:12
procedure TForm1.Button1Click(Sender: TObject); var F:TForm2; begin try F:= TForm2.Create(nil); F.ShowModal; finally F.Free; end; end;