delphi7 动态添加checkbox

新建一张表  C

a   int   

b   string

form中添加：

组件     名字

dbgrid  dbgrd1

button  btn1

checklist  chklst1

；

第一步：

连接dbgrid到表；

sql ：  select * from C;

第二步：

button事件中；添加代码

begin
for i := 0 to dbgrd1.Columns.Count - 1 do
chklst1.Items.Add(dbgrd1.Columns[i].FieldName);
end;

完成。