Для всех учителей из 37 347 образовательных учреждений по всей стране

Скидка до 75% на все 778 курсов

Выбрать курс
Получите деньги за публикацию своих
разработок в библиотеке «Инфоурок»
Добавить авторскую разработку
и получить бесплатное свидетельство о размещении материала на сайте infourok.ru
Инфоурок Информатика Другие методич. материалыПрограмма на Delfi "Светофор"

Программа на Delfi "Светофор"

библиотека
материалов

Задача. Создать светофор.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

Shape1: TShape;

Shape2: TShape;

Shape3: TShape;

Shape4: TShape;

procedure Shape4MouseEnter(Sender: TObject);

procedure Shape3MouseEnter(Sender: TObject);

procedure Shape2MouseEnter(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Shape2MouseEnter(Sender: TObject);

begin

shape2.Brush.color:=clred;

shape3.Brush.color:=clwhite;

shape4.Brush.color:=clwhite;

end;

procedure TForm4.Shape3MouseEnter(Sender: TObject);

begin

shape2.Brush.color:=clwhite;

shape3.Brush.color:=clyellow;

shape4.Brush.color:=clwhite;

end;

procedure TForm4.Shape4MouseEnter(Sender: TObject);

begin

shape2.Brush.color:=clwhite;

shape3.Brush.color:=clwhite;

shape4.Brush.color:=clgreen;

end;

end.

hello_html_m18d4c846.png

hello_html_m4189210c.png

Курс повышения квалификации
Курс профессиональной переподготовки
Учитель математики и информатики
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.