Hi Binary!
Machs dir doch nicht so kompliziert
Delphi-Quellcode:
procedure Tf_ampel.b_goClick(Sender: TObject);
begin
{Zustände (Kannste zB. im Tag vom Form abspeichern);
0 rot
1 rot/gelb
2 grün
3 gelb}
case f_ampel.Tag of
0: begin s_rot.Brush.Color:=clred; s_gelb.Brush.Color :=clwhite; s_gruen.brush.color :=clwhite; end;
1: begin s_rot.Brush.Color:=clred; s_gelb.Brush.Color :=clyellow; s_gruen.brush.color :=clwhite; end;
2: begin s_rot.Brush.Color:=clwhite; s_gelb.Brush.Color :=clwhite; s_gruen.brush.color :=clgreen; end;
3: begin s_rot.Brush.Color:=clwhite; s_gelb.Brush.Color :=clyellow; s_gruen.brush.color :=clwhite; end;
end;
f_ampel.Tag:=f_ampel.Tag+1;
if f_ampel.tag > 3 then f_ampel.Tag:=0;
end;
Gruß GM
P.S.: Bei mir hat dein Code funktioniert...die Ampel sprang auf Grün.... !?!?!
Zitat:
... eine Ampel schreiben, sie soll nur aus ifclausen bestehen, ...
Ooops, sorry grad erst gesehen.
