专注于互联网--专注于架构

delphi法:Delphi惯用法

Delphi惯用法 { No. 1 } //创建模式窗体的句子 class procedure TMyForm.RunForm(AObj1, AObj2: TObject); var vForm: TMyForm; begin vForm := TMyForm.Create(Application); with vForm do Try InitForm(AObj1, AObj2); ShowModal; Finally Free; end; end; (*说明： 通过class声明的函数，类似与VC中的静态函数；使用语句：TMyForm.RunForm(vObj1, vObj2); [阅读全文] [PDF]