Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Checkbox.Checked Problem (https://www.delphipraxis.net/13675-checkbox-checked-problem.html)

Uncle Cracker 23. Dez 2003 19:09


Checkbox.Checked Problem
 
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.


:love: Danke UC

Niko 23. Dez 2003 19:24

Re: Checkbox.Checked Problem
 
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 23. Dez 2003 19:28

Re: Checkbox.Checked Problem
 
Jep. Oder in Source ausgedrückt:

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

Uncle Cracker 23. Dez 2003 19:34

Re: Checkbox.Checked Problem
 
:love: Danke, ich wusste doch, dass das so simple war, dass ich es nicht hinbekomme :mrgreen:

Uncle Cracker 24. Dez 2003 00:04

Re: Checkbox.Checked Problem
 
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?


:love: Danke UC

mikhal 24. Dez 2003 05:53

Re: Checkbox.Checked Problem
 
Was funktioniert nicht?

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

Grüße
Mikhal

Uncle Cracker 24. Dez 2003 10:34

Re: Checkbox.Checked Problem
 
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 27. Dez 2003 10:49

Re: Checkbox.Checked Problem
 
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?


:love: Danke UC


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz