createform用法_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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有