{ 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;
//*说明:
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/