DBGrid columns ausblenden Problem

[marabu]

Hallo,

bei 25 Spalten 25 CheckBoxen - da magst du dir vielleicht mal die Komponente TCheckListBox anschauen. Ich gehe davon aus, dass anfangs alle Felder sichtbar sein sollen, aber du kannst den Code auch entsprechend anpassen:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Table.GetFieldNames(CheckListBox.Items);
  with CheckListBox do
    for i := 0 to Pred(Count) do
      Checked[i] := True;
end;

procedure TDemoForm.CheckListBoxClickCheck(Sender: TObject);
begin
  with CheckListBox do
    DbGrid.Columns[ItemIndex].Visible := Checked[ItemIndex];
end;

Grüße vom marabu