能否动态建立checkBox?

Question

有表如下：
 
id       name
----------------------
101     品种1
102     品种2
103     品种3如何动态建立checkBox或DBcheckBox
显示name,选中时得到id

Answer 1

procedure xxx
var chk:tcheckbox
beginchk:=tcheckbox.create(self);
chk.parent:=self;
chk.top:=......以上即可动态创建，其实其它组件也可用类似的方法

Answer 2

用TCheckListBox控件 每新加一项TCheckListBox的Items.Add

Answer 3

已经建立了checklistbox,但我如何不知道如何控制，怎样才能知道选了哪个？chxPz: TCheckListBox;BEGIN
chxpz.Clear;
adoquery1.First;
  while not adoquery1.Eof do
begin
  chxpz.Items.Add(adoquery1code_name.Value);
  adoquery1.Next;
END