Как в лазарусе запрограммировать кнопку ,чтобы работал светофор ,который я нарисовала в лазарусе ? TForm1 = class(TForm) Button1: TButton; Shape1: TShape; Shape2: TShape; Shape3: TShape; Shape4: TShape; Shape5: TSh...

Как в лазарусе запрограммировать кнопку ,чтобы работал светофор ,который я нарисовала в лазарусе ? 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;
Гость
Ответ(ы) на вопрос:
Гость
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;  
Не нашли ответ?
Ответить на вопрос
Похожие вопросы