请教如何把一个做好的Form放到另一个Form上?
请问怎么把一个做好的Form放到另一个Form上???
请问怎么把一个做好的Form(已经实现许多功能)放到另一个Form(这个作为主窗体)上???
之前也看到过类似的问题,请问具体怎么实现?谢谢!
------解决方案--------------------
Form2.Parent := Form1;
------解决方案--------------------
Form2.Parent:= Form1;
Form2.Align:=alClient;
Form2.BorderStyle:=bsNone;
Form2.Show;
或
Form2:= TForm2.Create(Form1);
Form2.Parent:= Form1;
Form2.Align:=alClient;
Form2.BorderStyle:=bsNone;
Form2.Show;
------解决方案--------------------
用Frames实现呀
------解决方案--------------------
procedure TForm2.Button1Click(Sender: TObject);
var fm3:TForm3;
begin
fm3:=tform3.Create(self);
fm3.Show;
Parent := fm3;
end;
请问怎么把一个做好的Form(已经实现许多功能)放到另一个Form(这个作为主窗体)上???
之前也看到过类似的问题,请问具体怎么实现?谢谢!
------解决方案--------------------
Form2.Parent := Form1;
------解决方案--------------------
Form2.Parent:= Form1;
Form2.Align:=alClient;
Form2.BorderStyle:=bsNone;
Form2.Show;
或
Form2:= TForm2.Create(Form1);
Form2.Parent:= Form1;
Form2.Align:=alClient;
Form2.BorderStyle:=bsNone;
Form2.Show;
------解决方案--------------------
用Frames实现呀
------解决方案--------------------
procedure TForm2.Button1Click(Sender: TObject);
var fm3:TForm3;
begin
fm3:=tform3.Create(self);
fm3.Show;
Parent := fm3;
end;