Параграф 5.4 Напис
Створити проект, у якому властивості компонента Напис змінювалися при натисканні (подія Click) на окрему кнопку Button.
1. Встановимо властивості напис в Інспекторі об’єктів:
- Caption — Учень 8 класу Корсунь-Шевченківської школи в два рядки
- Color — колір фону – сірий
- 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;