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