TApplication 中CreateForm的用法

procedure CreateForm(FormClass:TFormClass;Var reference);
作用：在应用程序中创建一个新的窗体
在其参数中FormClass用来制定窗体类型，而Reference是所建立
窗体的一个变量。
动态建立窗体
program project;
...
begin
application.initialize;
application.CreateForm(TForm1,Form1);
//省略Form2,Form3的建立
application.Run;
end;
Unit Unit1;
....
implementation
uses
unit2,unit3;
{$ *.DFM}
Funcation Hasform(a:String):boolean;
var
R:Boolean;
X:Integer;
Begin
r:=false;
for x:=0 to screen.formcount-1 do
begin
if screen.forms[x].name =a then
r:=true;

end;
result:=r;
End;

procedure form1.button1click(sender :tobject);
begin
if not hasform(''''form2'''') then
begin
applicaton.createform(Tform2,form2);
showmessage(''''Form2窗体建立!'''');
end;
end;
procedure form1.button2click(sender:tobject);
begin
if not hasform(''''Form3'''') then
begin
application.createform(Tform3,form3);
showmessage(''''Form3建立!'''');
end;
end;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!