DBGrid columns ausblenden Problem

[iron]

Hy Leute,

Ich habe ein kleines Problem mit meinem DBGrid, also ich möchte per Chexkbox Columns ausblenden

Ich habe 25 Felder, und dementsprechend viele Checkboxen. Nun wen ich Checkbox1 anklicke soll er Column 0 ausblenden, und dann so weiter, das klappt auch. Nur funktioniert es der reihe nach, ich kann nicht Checkbox5 für Column4, Checkbox10 für Column9 machen. Er macht alles,aber nur wenn ich der reihe nach,also von Column0 bis 25 ausblende und genauso ist es mit dem wieder einblenden.

Dies ist der Code den ich nehme zum ausblenden

Delphi-Quellcode:

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
if Checkbox1.Checked = True then Form2.DBGrid1.Columns[0].Visible := False
else  Form2.DBGrid1.Columns[0].Visible := True
end;

Ich hoffe ich hab mich verständlich genug für Euch ausgedrückt was mein Anliegen iss.

Danke schon mal.

[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

[iron]

Ja Danke, das isses genau gewesen.