Как в лазарусе запрограммировать кнопку ,чтобы работал светофор ,который я нарисовала в лазарусе ?
TForm1 = class(TForm)
Button1: TButton;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
procedure TForm1.Button1Click(Sender: TObject);
TForm1 = class(TForm)
Shape1.Brush.Color:=clGray;
Shape2.Brush.Color:=clGray;
Shape3.Brush.Color:=clRed;
Shape4.Brush.Color:=clYellow;
Shape5.Brush.Color:=clGreen;
Приложения:
![](https://st.uroker.com/files/501/501c08ddff37d61a01f0de7b36e0a63c.png)
Ответы
Ответ дал:
0
var n: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
Shape3.Brush.Color:=ClMaroon;
Shape4.Brush.Color:=ClOlive;
Shape5.Brush.Color:=ClGreen;
n:=n+1;
if n>4 then n:=1;
if n=1 then shape3.Brush.Color:=ClRed;
if (n=2) or (n=4) then shape4.Brush.Color:=ClYellow;
if n=3 then shape5.Brush.Color:=ClLime;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Shape3.Brush.Color:=ClMaroon;
Shape4.Brush.Color:=ClOlive;
Shape5.Brush.Color:=ClGreen;
n:=n+1;
if n>4 then n:=1;
if n=1 then shape3.Brush.Color:=ClRed;
if (n=2) or (n=4) then shape4.Brush.Color:=ClYellow;
if n=3 then shape5.Brush.Color:=ClLime;
end;
Приложения:
![](https://st.uroker.com/files/450/4503f2ef185f6ba906f149992fb222dc.png)
Ответ дал:
0
Спасибо большое за помощь !!!))Очень благодарна )
Ответ дал:
0
Рад, что смог помочь. Удачи!
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад