with adoquery1 do
begin
  first;
  while not eof do
  begin
    with tdbcheckbox.create(self) do
    begin
      parent := self;
      datasource := datasource1;
      datafield := 'yourfield';
      left := 100;
      top := 20; // you should calculate yourself
    end;
    next;
  end;
end;

解决方案 »

  1.   

    好像DBCTRLGRID更符合你的要求。
      

  2.   

    to:chechy(我爱洁洁) 
    DBCTRLGRID在哪个控件组里
      

  3.   

    to:delphi0302(dr)
    我想在一个表中提取数据让他显示在dbgrid中,然后在dbgrid中选择几条记录,把记录录入到另一个表中。在下一次提取数据的时候,我想在已经录入过的记录前面家一个标识,所以我想动态建立DBCheckbox。
    不知道你有没有更好的方法?