随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//一般写法
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  万一  阅读(...)  评论(...编辑  收藏