Checkboxen zurücksetzen?

[Jack23]

Hallo,

ich habe 20 check boxen und die möchte ich alle durch einen klick auf einen Button wieder zurücksetzen. Also das nichts mehr angekreuzt ist.

[DeddyH]

Zuerst mal die simple Methode (da kommen nachher bestimmt weitere Vorschläge, aber ich mache jetzt Feierabend ):

Delphi-Quellcode:

procedure TMainform.btnResetClick(Sender: TObject);
begin
  CheckBox1.Checked := false;
  CheckBox2.Checked := false;
  CheckBox3.Checked := false;
  CheckBox4.Checked := false;
  ...
  CheckBox20.Checked := false;
end;

[Bastler]

Hi;
was spricht gegen das hier:

Delphi-Quellcode:

procedure zuruecksetzen;
var i:integer;
begin
for i:=1 to 20 do
  begin
  TCheckBox(Form1.FindComponent('Checkbox'+inttostr(i))).checked:=false;
  end;
end;

... ich würds so machen... vor allem angenehmer, wenns nich 20 sondern 200 Checkboxenen sind...

[DeddyH]

Das setzt aber voraus, dass die Checkboxen auch durchgehend "Checkbox1" bis "CheckBox20" heißen. Ansonsten könnte man sich über das Tag behelfen.

[shmia]

Es gibt übrigens auch die Komponente TCheckListBox. Ideal, wenn man sehr viele gleichartige Checkboxen braucht.

[hjm]

Hallo,

was auch geht, ein Array mit den in Frage kommenden Checkboxen zu erstellen.

Funktioniert auch dann, wenn noch mehrere andere Checkboxen vorhanden sind.

Delphi-Quellcode:

var
  Mein_CH_box : Array [0..19] OF TCheckbox;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Mein_CH_box[ 1] := Checkbox1;    // CheckBoxen in Array eintragen
  Mein_CH_box[ 2] := Checkbox3;
  Mein_CH_box[ 3] := Checkbox5;
  Mein_CH_box[ 4] := Checkbox6;
              ..
              ..
              ..
  Mein_CH_box[19] := Checkbox38;
end; 

procedure TForm1.ClearChecks;
var
  i : Integer;
begin
  for i := 0 TO 19 DO Mein_CH_box[i].Checked := False;  // Checked entfernen
end;

[DeddyH]

Ehrlich gesagt finde ich shmias Vorschlag am Elegantesten.

[uwewo]

Hier noch eine Möglichkeit, allerdings nur wenn Du alle CheckBoxen ändern willst.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var i : Integer;
    c : TObject;
begin
  for i := 0 to ComponentCount-1 do
    begin
      c := Components[i];
      if (c is TCheckBox) then (c as TCheckBox).Checked := False;
    end;
end;

[Bastler]

@ DeddyH: Du gehts doch selbst von aus, das die alle gleich heißen


@ hjm: hierfür würde ich ja wieder ne for-schleife setzten... allein aus faulheit...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Mein_CH_box[ 1] := Checkbox1;    // CheckBoxen in Array eintragen
  Mein_CH_box[ 2] := Checkbox3;
  Mein_CH_box[ 3] := Checkbox5;
  Mein_CH_box[ 4] := Checkbox6;
              ..
              ..
              ..
  Mein_CH_box[19] := Checkbox38;
end;

Ich würd auch wie Shima sagt machen, solange ich die ganzen CheckBoxen nicht kreuz und quer auf der Form verteilt habe, und diese Funktion nur zum zurücksetzten brauche...