Вторник, 03.12.2024, 20:58
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Практические задания. Часть 2. Продолжение

События и их обработчики. Пример

Система Windows генерирует события (сообщения для приложения), которые предназначены для управления работой приложения. Приложение может реагировать или не реагировать на событие. Для того чтобы приложение реагировало на событие, необходимо поместить программный код в заготовке соответствующей событийной процедуры.

Примеры нескольких событий вызываемых мышью:

Задание 4.  Разработать проект " События - цветы". Использование методов Show, Hide; событий  OnMouseMoveOnCreate для объектов проекта. Цветы-архив

Интерфейс проекта

 

Программный код

 

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; 

Выполните компиляцию проекта.

Сохраните проект.

 

Форма входа
Поиск
Календарь
«  Декабрь 2024  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
3031
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2024
    Конструктор сайтов - uCoz