怎样在panel里显示一个子窗体？

[xchunyu]

如题。
请有经验的朋友尽可能详细指点

[bewill]

Form2.Parent := Panel1

[Black]

frmsjlr.Parent:=panel1;
frmsjlr.Align:=alclient;
frmsjlr.Show;
frmsjlr.Left:=0;
frmsjlr.Top:=0;

[blueshrimp]

uses form2;

procedure TForm1.Button1Click(Sender : TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;



uses Form1;

procedure TForm2.FormCreate(Sender : TObject)
begin
with Self do
begin
Parent := Form1.Panel1;
Top := 0;
Left := 0;
Height := Form1.Panel1.ClientHieght;
Width := Form1.Panel1.ClientWidth;
end;
end;


//可能拼写有误，纯手写，公司机器不行，懒得启动d6

[laihecongxi]

用parent实现不亦得到该窗体控件的焦点。可以尝试停靠：
form2.Dock(panel1,panel1.BoundsRect);

[starlyq]

procedure TMainForm.FormCreate(Sender: TObject);
var
　H : HWND;
　R : TRect;
begin
　H := Panel1.Handle; 　　　　　　//取 MainForm 上 Panel 句柄
　ChildForm.ParentWindow := H; 　//将新窗体绑定在 MainForm 的 Panel 上显示

　//以下功能：子窗体的大小设置为Panel的大小
　GetWindowRect(H, R);
　OffsetRect(R, -R.Left, -R.Top);
　ChildForm.BoundsRect := R;

　ChildForm.Show;
end;

[jackie168]

同意一樓的.....

[OO_is_just_P]

同意 lueshrimp(天空还下着沙) 的，没问题。

[beata88]

对

[skyclin]

还可采用Panel的UnDock事件和另外一个事件，不好意思，记不起来了，
需要的话明天给你！！

[Wnyu]

form2.show;
form2.Dock(panel1,panel1.BoundsRect);

[fancier]

哇！！！
学习

[xchunyu]

（我是原提问者）
可是：
在MainForm里根本不能引用ChildForm,这应该怎么办呢

[307]

严重同意： blueshrimp(天空还下着沙)
我试过，可以
有问题请发信息到我的E-mail:[e-mail]