Nochmal nen Frage zur Checkbox

Memphis D · Beiträge: 20

Hi
also ich hab da nochmal ne Frage die mit der Checkbox zu tun hat und zwar:
Ich hab drei mal ne Checkbox und will, falls keine markiert wurde ne Showmessage ausgeben. Der Quelltext sieht so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.btClick(Sender: TObject);
begin
IF NOT (CheckBox1.Checked) AND (CheckBox2.Checked) AND (CheckBox3.Checked) THEN
Showmessage('....')
ELSE 
....
end;

Leider kommt beim Anklicken des Buttons nichts, auch keine Fehlermeldung vom Delphi.
Woran liegt das denn?

MfG

Moderiert von Gausi: Delphi-Tags hinzugefügt

Mitmischer 1703 · Verfasst: Di 22.01.08 18:36

Dreimal CheckBox1 ?

markieren

Delphi-Quelltext

1:	If not (CheckBox1.Checked) and (CheckBox2.Checked) then //...

EDIT:

Auch falsch :oops:

, so:

markieren

Delphi-Quelltext

1:
2:

IF NOT (CheckBox1.Checked) AND NOT (CheckBox2.Checked) AND NOT(CheckBox3.Checked) THEN
Showmessage('....')

_________________
Die Lösung ist nicht siebzehn.

Gausi · Verfasst: Di 22.01.08 18:38

Und vor den anderen sollte jeweils auch ein NOT kommen, oder so:

markieren

Delphi-Quelltext

1:	if Not (CheckBox1.Checked OR CheckBox2.Checked OR CheckBox3.Checked) then ...

_________________
We are, we were and will not be.

Memphis D · Beiträge: 20

Oh das mit der CheckBox1 war nen fehler sollte eigentlich Checkbox1, Checkbox2 .... heißen.
So ok funktioniert, das NOT hinter dem AND hat gefehlt.
Danke.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme