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