Практические задания. Часть 2. Продолжение
События и их обработчики. Пример
Система Windows генерирует события (сообщения для приложения), которые предназначены для управления работой приложения. Приложение может реагировать или не реагировать на событие. Для того чтобы приложение реагировало на событие, необходимо поместить программный код в заготовке соответствующей событийной процедуры.
Примеры нескольких событий вызываемых мышью:
Задание 4. Разработать проект " События - цветы". Использование методов Show, Hide; событий OnMouseMove, OnCreate для объектов проекта. Цветы-архив
Интерфейс проекта
Программный код
|
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clTeal;
image1.hide;
image2.hide;
image3.hide;
image4.hide;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Form1.Color:=clTeal;
image1.hide;
image2.hide;
image3.hide;
image4.hide;
end;
|
 |
procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.show;
image2.hide;
image3.hide;
image4.hide;
end; |
 |
Аналогично оформите процедуры procedure TForm1.Label3MouseMove, procedure TForm1.Label4MouseMove, procedure TForm1.Label5MouseMove
Дополните каждую из процедур onMouseMove командой изменения цвета формы:
Form1.Color:=clFuchsia;
Form1.Color:=clOlive;
Form1.Color:=clPurple;
Form1.Color:=clLime;
Выполните компиляцию проекта.
Сохраните проект.
| 
