Практичні завдання до уроку "Елемент керування напис" у середовищі Lazarus

Елемент керування «напис»

 

1. Створіть проект, у якому подія Click для напису встановить 120 пікселів відступ його верхньої межі від верхньої межі вікна і змінить текст на написі на назву вулиці, на якій знаходиться ваша школа.

 

- запустіть середовище Лазарус.

- в Палітрі компонентів оберіть кнопку «TLabel».

 

 

- клацніть лівою кнопкою миші на цю кнопку і потім клацніть по формі. На формі з’явиться напис «Label1».

- щоб прописати код події Click для напису, виділіть напис «Label1» і у інспекторі об’єктів оберіть подію OnClick.

- код матиме вигляд:

 

procedure TForm1.Label1Click(Sender: TObject);

begin

  Label1.Top:=Top+120;

  Label1.Caption:='Полтавський шлях';

end;

 

Виконайте компіляцію проекту і натисніть F9. Дочекайтеся завантаження програми. Щоб побачити напис, розгорніть вікно створеної програми на весь екран.

 

2. Створіть проект, у якому подія KeyPress для напису встановить 80 пікселів відступ його лівої межі від лівої межі вікна і змінить текст на написі на ваше ім’я.

 

- додайте на форму «TLabel».

Напис «TLabel» не може обробляти події з клавіатури. Переконатися у цьому ви можете, якщо в Інспекторі об’єктів проглянете перелік доступних подій. Події «KeyPress» тут немає.

Для розв’язання поставленої задачі виділяємо форму, в Інспекторі об’єктів переходимо до вкладки «Властивості» і для «KeyPreview» встановлюємо значення «True». Таким чином, усі події від клавіатури буде отримувати форма.

Далі для форми створимо подію «KeyPress»:

 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);

begin

Label1.Left:=80;

Label1.Caption:='Вася';

end;    

 

Компілюємо і запускаємо проект.

 

3. Створіть проект, у якому подія MouseMove для напису змінить текст на ньому, установить червоний колір тексту і збільшить відступ напису від верхньої межі вікна на 20 пікселів.

 

Код для встановлення кольору тексту:

 

Label1.Font.Color:=clRed;

 

4. Створіть проект, у якому подія Click для напису зменшить його відступ від лівої межі вікна на 20 пікселів, установить розмір шрифту 12, колір шрифту синій і виведе в напис назву вашої школи.

 

Код для встановлення розміру шрифту:

 

Label1.Font.Size:=12;

 

5. Створіть проект, у якому подія Click для напису встановить синій колір фону і змінить текст на написі на «Мій проект», а подія KeyPress для напису перемістить його на 30 пікселів праворуч і на 40 пікселів униз.

 

Для Click:

Двічі клацаємо по Label1.

 

procedure TForm1.Label1Click(Sender: TObject);

begin

  Label1.Color:=clBlue;

  Label1.Caption:='Мій проект';

end;

 

Для KeyPress:

Виділяємо форму і в Інспекторі об’єктів переходимо до вкладки «Властивості» і для «KeyPreview» встановлюємо значення «True».

Далі переходимо до подій і обираємо KeyPress.

 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);

begin

  Label1.Left:=Left-30;

  Label1.Top:=Top-40;

end;       

 

6. Створіть проект, у якому подія Click для кнопки перемістить її на 60 пікселів праворуч і на 10 пікселів уверх і виведе в напис ваше прізвище та ім’я зеленим кольором на сірому фоні.

 

Ставимо на форму кнопку «BitBtn1» і напис «Label1».

Двічі клацаємо по кнопці «BitBtn1».

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  BitBtn1.Left:=Left-60;

  BitBtn1.Top:=Top+10;

  Label1.Caption:='Іванов Іван';

  Label1.Font.Color:=clGreen;

  Label1.Color:=clGray;

end;     

 

7. Створіть проект, у якому подія Click для кнопки перемістить вікно на 60 пікселів праворуч і на 80 пікселів уверх і виведе в напис ваше прізвище та ім’я сірим кольором на зеленому фоні.