有關 Form 的一些代碼的標準寫法時間:2009-10-23 21:00:05來源:網絡 作者:未知 點擊:44次

???
???????
???????????
???????
???

有關 Form 的一些代碼的標準寫法--------------------------------------------------------------------------------
?
有關 Form 的一些代碼的標準寫法--------------------------------------------------------------------------------
創建一個Form
創建一個Form的實例用: SomeForm:=TSomeForm.Create(Application);
?而不要用: TApplication.CreateForm(TSomeForm,SomeForm);
?因為 TApplication.CreateForm() 會檢查 MainForm 是否為 nil,如果是的話,便把新創建的 Form 作為主 Form。
打開一個模式Form
打開一個模式Form的標準寫法是:
?ModalForm:=TModalForm.Create(Application);
?try
?if ModalForm.ShowModal=mrOK then
?{ do something}
?finally
?ModalForm.Free;
?end;
打開一個無模式Form
打開一個無模式Form的標準寫法是:
?SomeForm:=TSomeForm.Create(Application);
?SomeForm.Show;
?并在Form的OnClose事件中將此Form釋放掉:
?procedure TSomeForm.FormClose(Sender:TObject; var Action:TCloseAction);
?begin
?Action:=caFree;
?end;
防止出現一個Form的多個實例
?if not Assigned(SomeForm) then // 也可寫為 if SomeForm=nil then
?SomeForm:=TSomeForm.Create(Application);
?SomeForm.Show;
?并在Form的OnClose事件中將此Form釋放掉:
?procedure TSomeForm.FormClose(Sender:TObject; var Action:TCloseAction);
?begin
?Action:=caFree;
?end;
?同時在Form的OnDestroy事件中將此Form變量設為nil:
?procedure TfrmMaterial.FormDestroy(Sender: TObject);
?begin
?SomeForm:=nil;
?end;
本篇文章來源于：開發學院 http://edu.codepub.com?? 原文鏈接：http://edu.codepub.com/2009/1023/16750.php

總結

以上是生活随笔為你收集整理的有关 Form 的一些代码的标准写法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。