如何动态把一个控件放入一个容器问题！（论坛维护所无发搜索）

cclzlj 2004-12-27 05:52:18

如何动态创建控件checkBox并把它放入一个容器里，
放在from上的Panel1上的Panel2上的GroupBox里！
论坛维护没法搜索！请多多指教

...全文

92 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cclzlj 2004-12-27

打赏
举报

真的很感谢啊！大家这么及时的回复！提前祝福大家新年快乐！万事如意！来年高薪！

10975037 2004-12-27

打赏
举报

向 meiqingsong(阿飛) 同志学习~!

10975037 2004-12-27

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
CKB:TCheckBox;
begin
CKB:= TCheckBox.Create(Self);
CKB.Name := 'dddd';
caption := 'New CheckBox';
Ckb.Left := 50;
ckb.Top := 50;
CKB.Parent := GroupBox1;
CKB.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{测试}
(FindComponent('dddd') as TCheckBox).Checked := not (FindComponent('dddd') as TCheckBox).Checked ;
end;

trainbox 2004-12-27

打赏
举报

checkbox:=TCheckBox.Create(self);
checkbox.Left:=2;
checkbox.Top:=2;
checkbox.parent:=groupbox;
.......

梅青松 2004-12-27

打赏
举报

1.创建时设置其parent 为该GroupBox
var
Check: TCheckBox;

Check := TCheckBox.Create(self);
Check.Parent := GroupBox1;

或则
2。创建时将Check 插入GroupBox中
Check := TCheckBox.Create(self);
GroupBox1.InsertControl(Check);

trainbox 2004-12-27