Ampel mit visible=true/false

[ManuMF]

Hi Jackel89,

erst mal ein paar Tiips:
- If-Abfragen besser in Klammern
- If-Abfragen für einen Boolean-Wert (= true oder false) brauchen kein "= true", wenn auf true geprüft wird (siehe unten)
- neue Blöcke einrücken, erhöht Übersicht (siehe unten)
- das not ist so wie "= false", nur erkennt man es besser
- Die Prozedur switchClick "gehört" zu Form1. Das heißt, du musst in dieser Prozedur nicht jedes mal Form1. ... schreiben (siehe unten)

So, das habe ich getestet, und es funktioniert. Es gibt natürlich auch einfachere Methoden, aber da ihr es so machen sollt, habe ich mich daran gehalten

Delphi-Quellcode:

procedure TForm1.switchClick(Sender: TObject);
begin

  if (sh_green.Visible) then
  begin
    sh_green.Visible := false;
    sh_yellow.Visible := true;
  end
  else if (sh_yellow.Visible) and not (sh_red.Visible) then
  begin
    sh_yellow.Visible := false;
    sh_red.Visible := true;
  end
  else if (sh_red.Visible) and not (sh_yellow.Visible) then
  begin
    sh_yellow.Visible := true;
  end
  else if (sh_red.Visible) and (sh_yellow.Visible) then
  begin
    sh_red.Visible := false;
    sh_yellow.Visible := false;
    sh_green.Visible := true;
  end;
end;

Gruß,
ManuMF

[edit] Ist ja so ähnlich wie von Benedikt. Wo war aber der Kasten?[/edit]