如何在运行期把组件放到form上?(50分)

  • 主题发起人 主题发起人 张远
  • 开始时间 开始时间
b := TButton.Create(Form1);
b.parent := form1;
b.top := 100;
b.left := 100;
b.height := 100;
b.width := 100;
//b.show;
 
只是把组件的“父”(parent)属性置为要基于的元件上即可(不一定非得是Form)。
这个问题太简单了,几乎完全可以通过看书来找到答案。
 
???
补充一下
有的组建的parent属性为只读
这样就不能用上面设置parent的方法插入
只能用作为容器的控件的InsertControl()来实现

MyPagecontrol.insertcontrol(button)

实际使用中,我发现这种方法还要好一点
 
用API!setparent 应该可以吧?
人家只要BUTTON嘛,别和我抢呀,呵呵。
 
var
b:TBUTTON;
BEGIN
B:=TBUTTON.CREATE(SELF);
B.PARENT:=SELF;
B.TOP:=12;
B.LEFT:=30;
B.WIDTH:=23;
END;
 
真累,已答问题里面就有嘛!
最早的20个DelphiBBS里就有这个问题的答案了,我在里面贴个了通用函数。你自己查查吧。

算了,顺手查了一下,在这儿:
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=2164
 
接受答案了.
 
后退
顶部