☰ Содержание · Информатика

Объект Label

Уроки 43–44 · 2 урока · Н. И. Тайлаков (общий редактор), А. Б. Ахмедов, М. Д. Пардаева, А. А. Абдуганиев, У. М. Мирсанов. Информатика и информационные технологии, 10 класс, 1-е издание. «Extremum-Press», Ташкент, 2017
43

Размещение информации в окне приложения

Учебник: с. 95–98
ЦельРазмещает Label на окне, изменяет его свойства Caption, Font и Name и показывает результат через Label во время работы приложения.
Новые слова
Label: элемент управления, показывающий текст, который пользователь не может редактировать · LabelName: свойство, хранящее имя объекта, по которому на него ссылаются в коде · NameFont: группа свойств гарнитуры, размера и цвета текста · Fontобъект.свойство: способ обратиться к свойству объекта в коде · obyekt.xossa
Объяснение

Простейшее средство показа информации в приложении – надпись Label (на вкладке Standard). Её главное свойство – Caption: оно содержит текст, появляющийся на экране. Left, Top, Width, Height задают положение и размер, а Font задаёт гарнитуру, размер и цвет текста (например, Font.Size, Font.Color). У каждого объекта есть свойство Name: Delphi называет первую надпись Label1, а вторую – Label2. В коде на объект ссылаются как «Name.property», например Label1.Caption := 'Salom'; не меняйте свойство Name во время работы приложения, потому что операторы, которые на него ссылаются, перестанут работать; новые имена давайте только при размещении объекта на окне. Чтобы показать число в Label, сначала преобразуйте его в текст: Label2.Caption := 'Eni: ' + IntToStr(Form1.Width);

Примеры
«Индикатор размера»: окно имеет размер 500×300, на нём кнопка «Уменьшить» и две надписи Label: procedure TForm1.Button2Click(Sender: TObject); ⏎ begin ⏎  Form1.Width := Form1.Width - 25; ⏎  Form1.Height := Form1.Height - 15; ⏎  Label1.Caption := 'Eni: ' + IntToStr(Form1.Width); ⏎  Label2.Caption := 'Boyi: ' + IntToStr(Form1.Height); ⏎ end; После четырёх щелчков: ширина 500–4·25 = 400, высота 300–4·15 = 240, а надписи показывают «Eni: 400» и «Boyi: 240».
Кнопка, увеличивающая текст: Label1.Font.Size := Label1.Font.Size + 3; если начальный размер равен 10, то после пяти щелчков он равен 10+5·3 = 25. Задание цвета: Label1.Font.Color := clRed; текст становится красным.
Работа в классе

«Живая надпись»: пара создаёт приложение с Label; одна кнопка увеличивает текст, другая уменьшает, а текущий размер показывается во второй надписи Label.

Упражнения
1
Какое свойство хранит текст, показываемый в Label?
2
В начале Label1.Font.Size = 12. Если прибавить +3 четыре раза, каков размер?
3
Какой текст даёт Label2.Caption := 'Eni: ' + IntToStr(400);?
4
Почему нельзя менять свойство Name во время работы приложения?