mostrar y ocultar columnas de un DBGrid

[ecfisa]

Hola wilcg.

Fijate si te sirve de este modo:

Código Delphi [-]
(* Ocultar las columnas, copiar títulos al combo *)
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to DBGrid1.Columns.Count-1 do
  begin
    DBGrid1.Columns[i].Visible:= False; // ocultar columna
    CheckListBox1.Items.Add(DBGrid1.Columns[i].Title.Caption);  // copiar título al combo
  end;
end;

(* Mostrar/Ocultar columna seleccionada *)
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  with TCheckListBox(Sender) do
    DBGrid1.Columns[ItemIndex].Visible:= not DBGrid1.Columns[ItemIndex].Visible;
end;

Saludos