Hola wilcg.
Fijate si te sirve de este modo:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to DBGrid1.Columns.Count-1 do
begin
DBGrid1.Columns[i].Visible:= False; CheckListBox1.Items.Add(DBGrid1.Columns[i].Title.Caption); end;
end;
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
with TCheckListBox(Sender) do
DBGrid1.Columns[ItemIndex].Visible:= not DBGrid1.Columns[ItemIndex].Visible;
end;
Saludos