内嵌窗口的问题
在Delphi中如何把一个form嵌入到另一个form中？望赐教 问题点数：10、回复次数：6Top
1 楼sxh（前方）回复于 2001-10-12 16:33:45 得分 0
采用动态创建的方法.
example:在现有的form1上创建一个窗体.
form1.onlick中写
var
formx:Tform;
begin
formx:=Tform.create;
with formx do
begin
parent:=fom1;
lelf:= ;
top:= ;
width:=;
....
end;
end;
应该ok吧!Top
2 楼Focus（西门大灌人）回复于 2001-10-12 16:48:17 得分 5
很简单的嘛
你可以在想嵌的地方先设一个panel
用manualdock方法对被嵌form进行dock
dock的父控件就是panel不就行了
Top
3 楼spar8086（）回复于 2001-10-12 16:57:42 得分 0
两种方法：
1 做一个ActiveX Form 以控件的行式加入
2 动态创建Form
meForm:TForm;//全局变量
Top
4 楼spar8086（）回复于 2001-10-12 17:03:38 得分 0
public CreateMeForm():boolean;
begin
meForm:=Tform.Create(self);
meForm.Top=???;
meForm.Left=???;
meForm.Widht:=???;
meForm.Height:=???;
meForm.parent:=self;
result:=true;
end;
//不要忘了注册TFormTop
5 楼happy243（HH）回复于 2001-10-12 17:35:28 得分 5
用DOCK
把主Form或者Form上的Panel等容器控件的
DockSite设为true
然后把另一个Form的DragKind设为dkDock
OkTop
6 楼anxue（Roland）回复于 2002-01-24 14:53:35 得分 0
还有Dragmode设为dmAutomatic
嘻嘻Top
