您的位置: 首页  >  IT文章  >  Delphi  >  TPageControl.tabsheet1 动态创建控件实怎么现单击事件？

TPageControl.tabsheet1 动态创建控件实怎么现单击事件？

分类: IT文章 • 2023-11-22 18:36:19
TPageControl.tabsheet1 动态创建控件实如何现单击事件？？？
各位大侠：TPageControl.tabsheet1 随机动态创建N个checkbox控件，现在如何实现单击事件，我想点击checkbox 时添加到 listbox里？研究了没搞定，请大家帮帮忙，感谢

------解决方案--------------------
Delphi(Pascal) code
提示下
var cb:TCheckBox;
begin
 cb := TCheckBox.Create(self);
 cb.Name := 'xxx';
 cb.OnClick := CheckBoxClick;
end;
procedure ;
procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  ListBox1.Item.Add((Sender as TCheckBox).Caption);  
end;

相关推荐