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

5.3. Кнопка

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

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

begin

Button1.Width := 40;

Button1.Height := 30;

Button1.SetTextBuf(’KHAKOV’);

end;

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

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

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

begin

Key := ‘S’; // Указуємо клавішу, при натисненні на яку будуть змінюватися події.

Button1.Width := 20;

Button1.Height := 40;

Button1. SetTextBuf(‘Прізвище’);

end;

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

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

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

begin

Button1.Тор := Button1.Тор+20;

Button1.SetTextBuf(‘Kнопкa’);

end;

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

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

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

begin

Button1.Width := Button1.Width+40;

Button1.Height := Button1.Height+40;

Button1.Left := Button1.Left-20;

end;

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

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

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

begin

Button1.Width := 50;

Button1.Height 50;

Button1.Font.Color := clMaroon;

Button1.SetTextBuf(‘Mій проект’);

end;

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

begin

Key := V;

Button1.Top := Button1.Тор+4;

Button1.Left := Button1.Left+3;

end;

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

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

6. Створюємо три кнопки: обираємо вкладку Standard —> тип кнопки TButton —> двічі клацнути ліву кнопку миші. Відкриваємо вкладку Компоненти у вікні Інспектор об’єктів та обираємо вкладку Властивості. Для кожної кнопки прописуємо такі властивості:

1-а кнопка: Enabled —> True, Visible —> True;

2-а кнопка: Enabled —> False, Visible —> True;

3-я кнопка: Enabled —> False, Visible —> False;

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

a) procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Enabled := false;

Button1.Visible := false;

Button2.Enabled := true;

Button2.Visible := true;

Button3.Enabled := false;

Button3.Visible := true;

end;

б) procedure TForm1.Button2Click(Sender: TObject);

begin

Button1.Enabled := false;

Button1.Visible := true;

Button2.Enabled := false;

Button2.Visible := false;

Button3.Enabled := true;

Button3.Visible := true;

end;

в) procedure TForm1.Button3Click(Sender: TObject);

begin

Button1.Enabled := true;

Button1.Visible := true;

Button2.Enabled := false;

Button2.Visible := true;

Button3.Enabled := false;

Button3.Visible := false;

end;

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

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