TForm类

显示给用户的窗体有两种：有模式和无模式的。具体使用哪一种窗体，取决于是否希望用户能够同时与这个窗体和其他窗体交互。

1.当打开一个模式窗体后，用户无法与应用程序的其他部分交互，知道用户关闭了这个窗体。模式窗体通常是对话框，就好像delphi本身的对话框应用。事实上，大多数情况下应当使用模式窗体。要显示一个模式窗体，只要调用ShowModal()就可以了。

下面的代码演示了怎样创建TmodalForm的实例，并把它作为模式窗体打开：

Begin

//创建TModalForm的实例

ModalForm:=TModalForm.Create(Application);

try

if ModalForm.ShowModal=mrOk then //显示这个窗体

{do something}; //执行一些代码

finally

ModalForm.Free; //释放窗体的实例

ModalForm:=nil; //把窗体变量设为nil

end;

end;

上面的代码演示了怎样动态创建TModalForm的实例以及把实例赋值给ModalForm变量。

注意：如果需要动态创建一个窗体的实例，就要把这个窗体从Project Options对话框的Auto-Create框中去掉。如果窗体的实例已经存在，可以调用ShowModal()函数打开它，其他代码可以删掉，变成下面这样：

begin

if ModalForm.ShowModal=mrOk then  //如果ModalForm已经存在

{do something};

end;

ShowModal()函数的返回值是ModalForm的ModalResult属性值。缺省情况下，ModalResult属性的值为0，相当于预定义的常量mrNone.如果ModalResult属性被赋值为其他非零值，则窗体将关闭。

可以在运行时对窗体的ModalResult进行赋值：

begin

ModalForm.ModalResult:=100; //Assigning a value to ModalResult 使窗体关闭

end;

预定义的Modal Result值。

常量	值
mrNone	0
mrOk	idOk
mrCancel	idCancel
mrAbort	idAbort
mrRetry	idRetry
mrIgnore	idIgnore
mrYes	idYes
mrNo	idNo
mrAll	mrNo+1

2.打开无模式窗体

要打开一个无模式窗体，可以调用Show()。

Begin

//检查无模式窗体的实例是否已经存在，防止一个窗体的多个实例的存在。

if not Assigned(Modeless) then

Modeless :=TModeless.Create(Application);//创建窗体

Modeless.Show   //显示无模式窗体

end;

要特别注意窗体的实例：当通过窗体的系统菜单或者窗体上的Close按钮关闭这个窗体时，窗体并没有真正从内存中释放。它仍然还在内存中，出发关闭了主窗体（即应用程序）。如果希望用户关闭了窗体就在内存中释放它，必须处理它的onclose事件，并且把Action参数设为caFree,这样，VCL就会在这个窗体关闭时释放它。

procedure TModeless.FormClose(Sender:object;

var Action:TCloseAction);

begin

action:=caFree; //当关闭时，释放窗体实例

end;

上述代码解决了窗体实例在内存释放的问题。不过，还有一个问题，注意下面这行代码：

if not Assigned(Modeless)then begin

这行代码检查TModeless 的实例是否已经由Modeless变量引用，这实际上就是检查Modeless是否为nil.尽管第一次进入例程的时候，Modeless可能是nil，但第二次进入这个例程的时候，它已经不是nil,这是因为VCL并没有把Modeless变量设为nil.因此，必须手工把这个变量设成nil。

与模式窗体不同的是，无法在代码中判断无模式窗体什么时候将删除。因为，无法在创建窗体实例的例程中删除窗体的实例。用户有可能在应用程序郑州运行的任何时候关闭无模式窗体。因此，无模式窗体本身一定要把Modeless变量设为nil,而且最好在处理窗体的NoDestroy事件的处理过程中设置这个变量：

procedure TModeless.FormDestroy(Sender:TObject);

begin

Modeless:=nil;//把Modeless变量设为nil

end;

这样就能保证每次关闭窗体时，Modeless变量总是被设为nil,从而防止Assigned()函数失败，记住，同一时刻只能创建TModeless的一个实例。

注意 对于无模式窗体来说，要避免出现下列有缺陷的代码：

begin

Form1:=TForm1.Create(Application);

Form1.show;

end;

上述代码会导致每次都创建窗体的实例，重复了被Form1引用的以前的实例，从而消耗了大量的内存。尽管通过Screen.Forms可以访问这些实例，但最好还是尽量避免使用上述代码。向构造器Create()传递nil造成无法在Form1实例变量被覆盖后，无法再引用这个窗体实例指针。