Ampel mit visible=true/false

[omata]

Hallo Jackel89,

oder nochmal anders...

Delphi-Quellcode:

  :
  private
    { Private-Deklarationen }
    AmpelStatus:byte;
    procedure Zeigen;
  :
procedure TForm.Zeigen;
begin
  Shape_rot.Visible:=(AmpelStatus in [1, 2]);
  Shape_gelb.Visible:=(AmpelStatus in [2, 4]);
  Shape_gruen.Visible:=(AmpelStatus = 3);
end;

procedure TForm.ButtonClick(Sender: TObject);
begin
  inc(AmpelStatus);
  if AmpelStatus = 5 then
    AmpelStatus:=1;
  Zeigen;
end;

procedure TForm.FormCreate(Sender: TObject);
begin
  AmpelStatus:=1;
  Zeigen;
end;

MfG
Thorsten