两种方法 try if form2=nil then form2:=tform2.Create(self); form2.ShowModal ; finally form2.Free; form2:=nil; end;var myobject:Tform; begin if not Assigned(form2) then begin Myobject:=tform2.Create(Self); try Myobject.ShowModal; finally Myobject.free; Myobject:=nil;//此句是必须的! end;
edit:=TEdit.create(nil);
edit.parent:=Form1;
edit.left:=100;
edit.top:=100;
TLabel.Create(nil);
TEdit.Create(nil);
try
if form2=nil then form2:=tform2.Create(self);
form2.ShowModal ;
finally
form2.Free;
form2:=nil;
end;var myobject:Tform;
begin
if not Assigned(form2) then
begin
Myobject:=tform2.Create(Self);
try
Myobject.ShowModal;
finally
Myobject.free;
Myobject:=nil;//此句是必须的!
end;
把你要加上去的控件,在xml文件中编好,然后程序从xml文件中读取内容,生成控件.
具体还有很多工作要做比较复杂.