{ 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;
//*說明:
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/