П`ятниця, 29.11.2024, 13:55
Вітаю Вас Гість | RSS

Методичний кабінет вчителя КБВ

Форма входу

Параграф 5.4 Напис

Параграф 5.4 Напис

Створити проект, у якому властивості компонента Напис змінювалися при натисканні (подія Click) на окрему кнопку Button.

1. Встановимо властивості напис в Інспекторі об’єктів:

  1. Caption — Учень 8 класу Корсунь-Шевченківської школи в два рядки
  2. Color — колір фону – сірий
  3. Font — Arial, розмір -  14, напівжирний

2. Кнопка_1 — змінює колір фону Напис

               Label1.Color:=clBlue; 

3. Кнопка_2 — змінює колір тексту Напис 

                 Label1.Font.Color:=clRed;  

4. Кнопка_3 — збільшує розмір тексту Напис

              Label1.Font.Size:=Label1.Font.Size+1;  

5. Кнопка_4 — зменшує  розмір тексту Напис

          Label1.Font.Size:=Label1.Font.Size-1;  

6. Кнопка _5 — змінює текст Напис

        Label1.Caption:=' Я українець '; 

Доповнимо проект подією MouseMove, яка змінює колір фону і тексту Напис, та подією MouseLeave, яка повертає колір фону і тексту Напис в попередній стан.

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
begin
  Label1.Color:=clGreen;
  Label1.Font.Color:=clBlue;
end;   

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
 Label1.Color:=clGray;
  Label1.Font.Color:=clBlack;
end;      

 

Афоризм
Невелика беда - услужить неблагодарному, но большое несчастье - принять услугу от подлеца.
Пошук
Календар