Розв’язання вправ та завдань до підручника «ІНФОРМАТИКА» 8 клас Й. Я. Ривкінда - 2017 рік

Розділ 5. Основи подійно- та об'єктно-орієнтованого програмування

5.2. Події. Обробники подій

Виконайте завдання (с. 169)

1. Відкрити вкладку Події у вікні Інспектор об’єктів. Вибрати подію OnClick. Поле праворуч від тексту OnClick стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnClickз’явиться текст FormClick, а на вкладці Unitl з’явиться заготовка для тексту процедури TForml. FormClick. У ній необхідно встановити такі команди процедури:

begin

Form1.Color := clGreen;

Form1.Width := 400;

Form1.Height := 300;

Form1.Caption := ’KHARKOV’;

end;

Для запуску проекту необхідно натиснути клавішу F9.

Для збереження проекту натисніть сполучення клавіш Shift + Ctrl + S.

2. Відкрити вкладку Події у вікні Інспектор об’єктів. Вибрати подію OnKeyPress. Поле праворуч від тексту OnKeyPress стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnKeyPress з’явиться текст FormKeyPress, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.FormKeyPress. У ній необхідно встановити такі команди процедури:

begin

Form1.Color := clBlue;

Form1.Width := 300;

Form1.Height := 200;

Form1.Caption := ’Прізвище’;

end;

Для запуску проекту необхідно натиснути клавішу F9.

Для збереження проекту натисніть сполучення клавіш Shift + Ctrl + S.

3. Відкрити вкладку Події у вікні Інспектор об’єктів. Вибрати подію OnDblClick. Поле праворуч від тексту OnDblClick стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnDblClick з’явиться текст FormDblClick, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.FormDblClick. У ній необхідно встановити такі команди процедури:

begin

Form1.Color := clred;

Form1.Caption := ’Подія’;

Form1.Top := Form1.Top+200;

end;

Для запуску проекту необхідно натиснути клавішу F9.

Для збереження проекту натисніть сполучення клавіш Shift + Ctrl + S.

4. Відкрити вкладку Подїі у вікні Інспектор об’єктів. Вибрати подію OnShow. Поле праворуч від тексту OnShow стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnShow з’явиться текст FormShow, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.FormShow. У ній необхідно встановити такі команди процедури:

begin

Form1.Color := clGreen;

Form1.Width := 500;

Form1.Height := 500;

Form1.Left := Form1.Left-100;

end;

Для запуску проекту необхідно натиснути клавішу F9.

Для збереження проекту натисніть сполучення клавіш Shift + Ctrl + S.

5. Відкрити вкладку Події у вікні Інспектор об’єктів. Вибрати подію OnClick. Поле праворуч від тексту OnClick стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnClickз’явиться текст FormClick, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.FormClick. У ній необхідно встановити такі команди процедури:

Form1.Color := clDefault;

Form1.Width := 500;

Form1.Height := 500;

Form1.Caption := ’Проект з двома процедурами’;

Відкрити вкладку Події у вікні Інспектор об’єктів. Вибрати подію OnDblClick. Поле праворуч від тексту OnDblClick стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnDblClick з’явиться текст FormDblClick, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.FormDblClick. У ній необхідно встановити такі команди процедури: begin

ShowMessage(’Я громадянин України’)

end;

Для запуску проекту необхідно натиснути клавішу F9.

Для збереження проекту натисніть сполучення клавіш Shift + Ctrl + S.

6. Відкрити вкладку Події у вікні Інспектор об’єктів. Вибрати подію OnClose. Поле праворуч від тексту OnClose стане поточним, у поточному полі двічі клацнути. На вкладці Події навпроти OnClose з’явиться текст FormClose, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.FormClose. У ній необхідно встановити такі команди процедури:

begin

ShowMessage(’Виконання проекту закінчено! До побачення’)

end;

Для запуску проекту необхідно натиснути клавішу F9.

Для збереження проекту натисніть сполучення клавіш Shift + Ctrl + S.