Создать Светофор В Delphi

Создание светофора в Delphi может быть довольно простым заданием, если знать, как это сделать правильно. Сначала нужно создать главную форму и поместить на нее 3 окна, которые будут представлять собой красный, желтый и зеленый свет.

Затем мы можем определить переменную типа Boolean, которая будет отвечать за текущее состояние светофора. Если все работает правильно, свет будет переключаться между красным, желтым и зеленым цветом, и все они будут точно выглядеть, как настоящий светофор.

  //начало кода
      var
  Svetofor1, Svetofor2, Svetofor3: TShape;
  IsRed, IsYellow, IsGreen: Boolean;
begin
  Svetofor1 := TShape.Create(Self);
  Svetofor1.Parent := Self;
  Svetofor1.Brush.Color := clRed;
  Svetofor1.Pen.Color := clRed;
  Svetofor1.Shape := stCircle;
  Svetofor1.Top := 25;
  Svetofor1.Left := 25;
  Svetofor1.Width := 60;
  Svetofor1.Height := 60;
  Svetofor2 := TShape.Create(Self);
  Svetofor2.Parent := Self;
  Svetofor2.Brush.Color := clYellow;
  Svetofor2.Pen.Color := clYellow;
  Svetofor2.Shape := stCircle;
  Svetofor2.Top := Svetofor1.Top + Svetofor1.Height + 25;
  Svetofor2.Left := Svetofor1.Left;
  Svetofor2.Width := Svetofor1.Width;
  Svetofor2.Height := Svetofor1.Height;
  Svetofor3 := TShape.Create(Self);
  Svetofor3.Parent := Self;
  Svetofor3.Brush.Color := clGreen;
  Svetofor3.Pen.Color := clGreen;
  Svetofor3.Shape := stCircle;
  Svetofor3.Top := Svetofor2.Top + Svetofor2.Height + 25;
  Svetofor3.Left := Svetofor1.Left;
  Svetofor3.Width := Svetofor1.Width;
  Svetofor3.Height := Svetofor1.Height;
  IsRed := True;
  IsYellow := False;
  IsGreen := False;
  //здесь можно продолжить инициализацию светофора
    end;
//конец кода

Видеоурок по Delphi 7 - простейшая программа

Автосканер Delphi DS 150E + программа Автоком (Делфи)

Пароль и логин на программу Delphi - Уроки Delphi

Мигающий светофор на C++ Builder

Создать программу в Delphi (Урок 1)

Delphi 7 da svetafor yaratamiz.

Советы дизелисту Common Rail Delphi

СОЗДАТЬ СВЕТОФОР В DELPHI