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