窗体嵌套有关问题

窗体嵌套问题
我想在一个窗体里面嵌套另一个窗体
form2在form1中看不到标题栏和状态栏这类工具条(就是form1.panel1一样)。

多谢各位高人指点。多谢先

[解决办法]
form2.borderstyle 设为 bsNone

procedure TForm2.FormCreate(Sender: TObject);
begin
self.Parent := form1.Panel1;
Self.Left :=0;
Self.Top :=0;
show;
end;

另为什么不用Frame？


[解决办法]
嘿嘿 同样的问题 . 解决方案;在窗体上放个panel1

procedure Tfm_Main.FormOpenShow(TClass: TComponentClass;var Reference);
begin
if assigned(TForm(Reference)) then
begin
TForm(Reference).Close;
TForm(Reference).free;
end;
application.CreateForm(TClass,TForm(Reference));
TForm(Reference).Dock(Panel1,Panel1.ClientRect); //把窗体 放在panel上
TForm(Reference).Show;
end;

procedure Tfm_Main.cxButton10Click(Sender: TObject);
begin
FormOpenShow(TForm1,Form1);
end;

保证能实现嘿嘿