Ampel mit visible=true/false

[gfjs]

@ Jackel89

Ich bin selber noch Anfänger und habe hier im Büro auch kein Delphi installiert, um auszuprobieren, ob meine Lösung funktioniert. Aber vielleicht ist das eine Überlegung wert:

Delphi-Quellcode:

Button1.Tag := 1; gruen.visible := true;

Und in die onClick-Prozedur:

Delphi-Quellcode:

Case Button1.Tag of
  1: begin
       gruen.visible := false;
       gelb.visible := true;
       Button1.Tag := 2;
     end;
  2: begin
      gelb.visible := false;
      rot.visible := true;
      Button1.Tag := 3;
    end;
  3: begin
       gelb.visible := true;
       Butto1.Tag := 4;
     end;
  4: begin
       rot.visible := false;
       gelb.visible := false;
       gruen.visible := true;
       Button1.Tag := 1;
{  5: begin ;-)
      Ampel.kaputt := true;
      SignalbauHuberAnrufen := true;
    end; ;-) }
end;

Probier's einfach mal aus.

mfg gfjs

[gfjs]

@ Jackel89

Sorry! Habe übersehen, dass Ihr das mit if .. then machen sollt. Du mußt also die Case-Anweisungen auflösen:

if Button1.Tag = 1 then
begin
...
end else

Das Ganze ist natürlich nur Pseudo-Code - ich wollte nur auf die Möglichkeit hinweisen, die Tag-Eigenschaft des Buttons zu verwenden.

mfg gfjs

[Jackel89]

jup klar danke :)

@gfjs: sieht auf jeden fall interessant aus - werd ich auch mal ausprobiern :thumb: thx!
(besonders 5 ^^)