+ -
当前位置:首页 → 问答吧 → 动态生成控件的问题~

动态生成控件的问题~

时间:2011-11-29

来源:互联网

有一个PageControl1控件,其中一个TabSheet1上有一些如richedit,button等控件。
应该如何在新的tbaSheet2控件上自动创建TabSheet1上的所有控件及它们的运行函数,如Button的点击~

作者: hoxogo   发布时间: 2011-11-29

var BtnTest:TButton;
begin
 btnTest := TButton.Create(self);
 btnTest.Parnet := TabSheet2;
 BtnTest.Caption := '测试';
 BtnTest.Name := 'xxxx';
 BtnTest.Onclick := 你自定义的事件名称;
end;
大致应该是这样

作者: case5166   发布时间: 2011-11-29

控件.ParentWindow := tabsheet2.Handle;

tabsheet2.InsertControl(控件);

作者: bdmh   发布时间: 2011-11-29

如果同样的控件生成较多,可以用数组来管理,比如Button数组,尤其是如果用同样的OnClick函数时,你可以遍历数组来找到谁是Sender。

作者: lhylhy   发布时间: 2011-11-29

汗,,一时看错题目意思了

作者: case5166   发布时间: 2011-11-29

热门下载

更多