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