Вторник, 12.11.2019, 16:24
Главная | Регистрация | Вход Приветствую Вас Гость | 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; 

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

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

 

Форма входа
Поиск
Календарь
«  Ноябрь 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

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