相互嵌入的窗体

相互嵌入的窗体

时间:2011-5-26来源:yang 作者: peng点击: 3次

procedure TMainForm.FormCreate(Sender: TObject);
var
　Hz : HWND;
　Rz : TRect;
begin
　Hz := Panel.Handle; 　　　　　　//取 MainForm 上 Panel 句柄
　ChildForm.ParentWindow := Hz; 　//将新窗体绑定在 MainForm 的 Panel 上显示
　//以下功能：子窗体的大小设置为Panel的大小
　GetWindowRect(Hz, Rz);
　OffsetRect(Rz, -Rz.Left, -Rz.Top);
　ChildForm.BoundsRect := Rz;
　ChildForm.Show;
end;