Gibt es einen Toggle Befehl ?

[ebber]

Hallo

Gibt es einen Toggle Befehl ?

Ich habe das jetzt so gemacht :

Delphi-Quellcode:

if DLED1.checked then
DLED1.checked:=false
else
DLED1.checked:=true;

Gibt es da irgend einen Befehl der das irgenwie macht ?

MfG

[leddl]

Im Endeffekt nicht, du kannst deinen Code aber noch deutlich zusammenfassen :zwinker:

Delphi-Quellcode:

DLED1.checked := not DLED1.checked;

[katjah]

DLED1.checked:=not DLED1.checked;

[Christian Seehase]

Moin ebber,

Du musst aber aufpassen, dass Du das nicht im OnClick-Ereignis der Checkbox machst, da dieses durch das Setzen der Eigenschaft Checked ausgelöst wird.

[IngoD7]

Zitat:

Zitat von Christian Seehase

Moin ebber,

Du musst aber aufpassen, dass Du das nicht im OnClick-Ereignis der Checkbox machst, da dieses durch das Setzen der Eigenschaft Checked ausgelöst wird.

Das stimmt.
Allerdings wäre es auch reichlich sinnfrei, es dort einzubauen, weil ein Klick auf die CheckBox den Toggle ja schon von ganz alleine bewirkt. :wink:

[Reinhard Kern]

Zitat:

Zitat von ebber

Hallo

Gibt es einen Toggle Befehl ?

Ich habe das jetzt so gemacht :

Delphi-Quellcode:

if DLED1.checked then
DLED1.checked:=false
else
DLED1.checked:=true;

Gibt es da irgend einen Befehl der das irgenwie macht ?

MfG

Hallo,

wenn man einen Befehl haben möchte und es gibt ihn noch nicht, dann macht man ihn eben (die Logik wurde ja schon erklärt):

Delphi-Quellcode:

procedure Toggle (var B : boolean);
begin
B := not B;
end;
...
Toggle (DLED1.checked);

Gruss Reinhard

[Amateurprofi]

Zitat:

Zitat von Reinhard Kern

wenn man einen Befehl haben möchte und es gibt ihn noch nicht, dann macht man ihn eben (die Logik wurde ja schon erklärt):

Delphi-Quellcode:

procedure Toggle (var B : boolean);
begin
B := not B;
end;
...
Toggle (DLED1.checked);

Gruss Reinhard

So mal eben funktioniert das aber nicht.
[Fehler] E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

[Ghostwalker]

Delphi-Quellcode:

  function Toggle(const b:boolean):boolean;
  begin
    result := not b;
  end; 


  DLED1.checked := Toggle(DLED1.checked);

Das sollte "mal eben" funktionieren :wink:

[marabu]

Ganz ehrlich, Ghostwalker: Ehe ich eine Toggle-Funktion schreibe, nehme ich doch lieber den Vorschlag von Katja und Axel:

Delphi-Quellcode:

 with DLED1 do Checked := not Checked;

Keine Frage, es geht so wie du schreibst, aber sinngemäß ist Toggle für mich eine Prozedur.

Freundliche Grüße

[leddl]

Zitat:

Zitat von marabu

Keine Frage, es geht so wie du schreibst, aber sinngemäß ist Toggle für mich eine Prozedur.

Zum einen das, zum anderen ist

Delphi-Quellcode:

DLED1.checked := Toggle(DLED1.checked);

ja nicht wirklich praktischer als

Delphi-Quellcode:

DLED1.checked := not DLED1.checked;

;)