有关 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