Criando semáforo no Delphi!

Vamos criar um semáforo no delphi com os objetos:

shape(3)

timer

Monte o form como na imagem abaixo:

No timer coloque a propriedade interval=1000 e deixe enabled =true.

Mude as cores do shape de acordo com o semáforo.

Vamos ao código dentro do timer:

if shape1.visible = true then

begin

shape1.Visible :=false;

shape2.Visible :=true;

shape3.Visible :=false;

end

else if   shape2.visible = true then

begin

shape1.Visible :=false;

shape2.Visible :=false;

shape3.Visible :=true;

end

else if   shape3.visible = true then

begin

shape1.Visible :=true;

shape2.Visible :=false;

shape3.Visible :=false;

end;

Feito isso é só executar.