checkboxproblem!!!!hilfe

[john86]

hallo leute, kann mir jemand von euch bitte sagen, wie man ein checkbox wieder deaktivieren kann, wenn es bereits schon aktiviert ist.
Mein Quelltext bis jetzt dazu:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

checkBox1.Checked:=true;
Seitea_quader.Visible:=true;

end;

[Klaus01]

Hallo,

eine Checkbox reagiert doch so:

einmal anklicken - checkbox.checked = true
nochmal anklicken - checkbox.checked = false

Da muss man manuel nichts machen.

Grüße
Klaus

[JWeis]

Delphi-Quellcode:

 checkbox1.Checked:= false;

[tomsel]

ich ahne, wo dein Problem liegt und denke, dass es damit behoben wird:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

Seitea_quader.Visible := checkBox1.Checked;

end;

[john86]

Aber wenn ich diesen Quelltext anwende, dann tritt immer Fehler auf (Obwohl ich das Programm noch gar nicht angewenndet habe),

[john86]

ach hier ist noch der Quelltext

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
checkBox1.Checked:=true;
checkBox1.Checked:=false;
Seitea_quader.Visible:=CheckBox1.Checked;
end;

[s.h.a.r.k]

Hey.

Das Problem ist, dass wenn du den Code

Delphi-Quellcode:

CheckBox1.Checked := True;

aufrufst, dann wird automatisch Checkbox1.OnClick ausgeführt!

mfg shark

[tomsel]

Zitat:

Zitat von john86

ach hier ist noch der Quelltext

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

mit folgenden beiden Zeilen änderst du den Zustand der Checkbox,
dabei wird jedes mal diese Prozedur erneut durchlaufen.
checkBox1.Checked:=true;
checkBox1.Checked:=false;

Der Zustand der Checkbox ändert sich aber bereits automatisch, wenn du drauf klickst.
Eine Manipulation von checkbox1.check ist daher überflüssig, du musst den Zustand der Checkbox an dieser Stelle nur auswerten, und das machst du z.bsp. hiermit:

Seitea_quader.Visible:=CheckBox1.Checked;

end;

[john86]

den checkbox zu aktivieren ist ja für mich kein Problemo,
Und mit dieser Quellcode kann ich es ja ermöglichen

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
checkBox1.Checked:=true;
Seitea_quader.Visible:=checkBox1.checked;
end;

aber den wieder zu deaktivieren :?: .
gibt es irgendwie einen weg, der diese SChritte ausführt.(wenn ich den checkbox beim ersten mal klicke, dann wird's aktiviert. wenn ich bei 2.klicke, dann wird dieser wieder deaktiviert.


mfg

[tomsel]

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

checkBox1.Checked:=true; // lasse das einfach weg! 

Seitea_quader.Visible:=checkBox1.checked; // nur das hier ist notwendig

end;

Die Prozedur CheckBox1Click teilt deinem Formular lediglich mit, dass sich der Zustand der Checkbox geändert hat. Du musst innerhalb dieser Prozedur die Checkbox nicht selbst aktivieren oder deaktivieren. Das einzige, was zu tun ist: Den aktuellen Zustand auswerten und darauf reagieren.