Checkbox.Checked Problem

[Uncle Cracker]

Ich habe das Problem, dass ich, wenn man auf eine Checkbox klickt und es auf Checked:=true stellen will, dass eine Inputbox sich öffnen soll. Das geht schon, nur wenn die Checkbox schon markiert ist, soll einfach nur auf Checked:=false gestellt werden.

Mein Code sieht so aus:

Code:

var Input: String;
begin
if CheckBox1.Checked then
CheckBox1.Checked:=false
else begin Input:=Inputbox('Titel','Text','Diese Maustaste ist deaktiviert...');
CheckBox1.Checked:=true; exit
end;
end;

Doch leider öffnet sich die Inputbox immerwieder
Eigentlich dürfte das doch kein großes Problem sein, nur irgendwie bekomme ich das nicht hin.

Vielleicht hatte jemand schonmal das selbe Problem wie ich und kann mir helfen.


Danke UC

[Niko]

Ich gehe mal davon aus, dass der Code in OnClick steht.
Lass doch einfach die Zuweisung an ChekBox.Checked weg, denn das macht die Box ja von allein. Es kann aber sein, dass du dann deine Bedingung umdrehen musst.

[Stanlay Hanks]

Jep. Oder in Source ausgedrückt:

 IF CheckBox2.Checked THEN Input := Inputbox('Titel','Text','Diese Maustaste ist deaktiviert...'); Man liest sich, Stanlay

[Uncle Cracker]

Danke, ich wusste doch, dass das so simple war, dass ich es nicht hinbekomme

[Uncle Cracker]

Ich habe jetzt nochmal eure Methode getestet und die Funktioniert auch für eine Inputbox, wenn man das jedoch auf das öffnen einer neuen Form anwendet, funktioniert es nicht:

Code:

if FlatCheckBox1.Checked then Form2.ShowModal;

So funktioniert es nicht, obwohl es genau das gleiche ist, wie mit der Inputbox.

Vielleicht kann mir jetzt nochmal jemand helfen?


Danke UC

[mikhal]

Was funktioniert nicht?

Das Anzeigen der Form oder erhältst du eine Fehlermeldung und wenn, welche?

Grüße
Mikhal

[Uncle Cracker]

Es funktioniert schon. Die Form öffnet sich und wenn ich die Form schließe ist auch das Häckchen da.

Wenn ich jetzt jedoch wieder auf die Checkbox klicke um das Häckchen zu enfernen, öffnet sich wieder die neue Form und das Häckchen bleibt da

[Uncle Cracker]

Ich habe jetzt herausbekommen, warum es nicht geht.

Nämlich, ich nutzte die Flatstyle Komponenten und da funktioniert der oben geschriebene Code nicht

Hat vielleicht jemand eine Ahnung, wie man das mit den Flatstyle Komponenten machen könnte oder eine andere Möglichkeit, als die von oben?


Danke UC