1,183
社区成员
发帖
与我相关
我的任务
分享[菜鸟问题]恳求高手告之：怎样将Form2放到Form1的Panel1中（在线等待）谢谢！
各位大虾帮个忙，我最近学习写个软件，突然想起个问题不知怎样实现，还请各位大虾指点下
例如：
在Form1中放Panel1控件，新建Form2
然后怎样在编译后，运行时Form2就在Panel1中。谢谢
例如：
在Form1中放Panel1控件，新建Form2
然后怎样在编译后，运行时Form2就在Panel1中。谢谢
...全文
请发表友善的回复…
发表回复
xianqf 2004-11-21
- 打赏
- 举报
多谢！多谢
ntn115 2004-11-21
- 打赏
- 举报
procedure TForm1.FormActivate(Sender: TObject);
var
aForm2: TForm2;
begin
aForm2 := TForm2.Create(self);
Form2.Parent := Panel1;
Form2.Left := 0;
Form2.Top := 0;
Form2.Visible := true;
end
楼上的方法也可以，嘿嘿
Windows.SetParent(ChildForm.Handle, ParentControl.Handle); //ChildForm 为FORM2
//ParentControl 为 Panel1
var
aForm2: TForm2;
begin
aForm2 := TForm2.Create(self);
Form2.Parent := Panel1;
Form2.Left := 0;
Form2.Top := 0;
Form2.Visible := true;
end
楼上的方法也可以，嘿嘿
Windows.SetParent(ChildForm.Handle, ParentControl.Handle); //ChildForm 为FORM2
//ParentControl 为 Panel1
aiirii 2004-11-21
- 打赏
- 举报
ChildForm.Visible := False;
ChildForm.BorderStyle := bsNone;
ChildForm.SetBounds(0, 0, ParentControl.Width, ParentControl.Height);
Windows.SetParent(ChildForm.Handle, ParentControl.Handle);
ChildForm.Visible := True;
ChildForm.BorderStyle := bsNone;
ChildForm.SetBounds(0, 0, ParentControl.Width, ParentControl.Height);
Windows.SetParent(ChildForm.Handle, ParentControl.Handle);
ChildForm.Visible := True;
zhlwyy 2004-11-21
- 打赏
- 举报
SELF
