求一个简单的过程

Question

1个CheckListBox1和1个DBGRID
 把DBGRID.Columns.Items[i].Visible=true 的Title.Caption 分别添加在CheckListBox1里面
var
i:integer;
begin
   checklistbox1.Items.Clear;
   for i:=0 to ehname.Columns.Count-1 do
   begin
     if ehname.Columns.Items[i].Visible=true then
       CheckListBox1.Items.Add(ehname.Columns.Items[i].Title.Caption);
   end;
   for i:=0 to CheckListBox1.Items.Count-1 do
   begin
     CheckListBox1.Checked[i]:=true;
   end;问题。。
怎么通过选择checklistbox1里的勾来调整 DBGRID的列可见和不可见
难点在于DBGRID里原先有几列的VISABLE=false的

Answer 1

根据CheckListBox1的选择直接对数据库表操作吧

Answer 2

for i:=0 to DBGrid.Columns.Count-1 do begin
    DBGrid.Columns[i].Visible:=CheckList1.Checked[i];

Answer 3

for i:=0 to ehname.Columns.Count-1 do
   begin
       CheckListBox1.Items.Add(ehname.Columns.Items[i].Title.Caption);
       CheckListBox1.Checked[i] := ehname.Columns.Items[i].Visible;
   end;

Answer 4

要刷新显示列的时候，用上zzq4823(高原猫)的代码就可以了

Answer 5

for i:=0 to CheckListBox1.Items.Count-1 do
   begin
     for j:=0 to ehname.Columns.Count-1 do
     begin
       if ehname.Columns.Items[j].Title.Caption=CheckListBox1.Items.Strings[i]then
       begin
         ehname.Columns.Items[j].Visible:=CheckListBox1.Checked[i];
         break;
       end;
     end;
   end;