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

5.4. Напис

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

1. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel. Відкрити вкладку Компоненти у вікні Інспектор об’єктів. Вибрати подію OnClick. Поле праворуч від тексту OnClick стане поточним, у поточному полі двічі клацнути. На вкладці Компоненти навпроти OnClick з’явиться текст Label1Click, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.Label1Click, у якій необхідно встановити такі команди процедури:

begin

Label1.Top ;= 120;

Label1.Caption := ‘Назва вулиці’;

end;

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

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

2. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel. Вибрати подію OnKeyPress. Поле праворуч від тексту OnKeyPress стане поточним, у поточному полі двічі клацнути. На вкладці Компоненти навпроти OnKeyPress з’явиться текст FormKeyPress, а на вкладці Unitl з’явиться заготовка для тексту процедури FormKeyPress, у якій необхідно встановити такі команди процедури:

begin

Key := ‘z’;

Label1.Left := 80;

Label1.Caption := ‘Name’;

end;

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

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

3. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel. Вибрати подію OnMouseMove. Поле праворуч від тексту OnMouseMove стане поточним, у поточному полі двічі клацнути. На вкладці Компоненти навпроти OnMouseMove з’явиться текст FormMouseMove, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1. FormMouseMove, у якій необхідно встановити такі команди процедури:

begin

Label1.Caption := ‘Knopka’;

Label1.Font.Color := clRed;

Label1.Top := Labell.Top+20;

end;

4. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel. Відкрити вкладку Компоненти у вікні Інспектор об’єктів. Вибрати подію OnClick. Поле праворуч від тексту OnClick стане поточним, у поточному полі двічі клацнути. На вкладці Компоненти навпроти OnClick з’явиться текст Label1Click, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.Label1Click, у якій необхідно встановити такі команди процедури:

begin

Label1.Left := Labell.Left-20;

Label1.Font.Size := 12;

Label1.Font.Color := clBlue;

Label1.Caption := ‘SHKOLA’;

end;

5. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel. Відкрити вкладку Компоненти у вікні Інспектор об’єктів. Вибрати подію OnClick. Поле праворуч від тексту OnClick стане поточним, у поточному полі двічі клацнути. На вкладці Компоненти навпроти OnClick з’явиться текст Label1Click, а на вкладці Unitl з’явиться заготовка для тексту процедури TForm1.Label1Click, у якій необхідно встановити такі команди процедури:

begin

Label1.Color := $001298D8;

Label1.Caption := ‘Moi proekt’;

end;

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

begin Key := ‘z’;

Label1.Left := Label1.Left+30;

Label1.Top := Label1.Top+40;

end;

6. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TButton —> двічі клацнути ліву кнопку миші.

Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel.

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

begin

Button1.Left := Buttonl.Left+60;

Button1.Top := 10;

Label1.Caption := ‘Familiya Imya’;

Label1.Font.Color := clGreen;

Form1.Color := clSilver;

end;

7. Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TButton —> двічі клацнути ліву кнопку миші.

Для створення кнопки на панелі Меню виберіть вкладку Standard —> тип кнопки TLabel.

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

begin

Form1.Тор := Form1.Тор+80;

Form1.Left := Form1.Left+60;

Label1.Caption := ‘Familiya Imya’;

Label1.Font.Color := clGreen;

Form1.Color := clSilver;

end;