//一般写法
var
  MyForm1: TForm1;
begin
  MyForm1 := TForm1.Create(nil);
  MyForm1.ShowModal;
  MyForm1.Free;
end;

//用 with 语句重写 with TForm1.Create(nil) do begin ShowModal; Free; end;
posted on 2008-01-23 01:07  万一  阅读(5831)  评论(2编辑  收藏  举报