Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
В.Д. Боев, Р.П. Сыпченко.docx
Скачиваний:
173
Добавлен:
19.09.2019
Размер:
7.07 Mб
Скачать

8.3.2. Добавление меток

Помимо полей редактирования окно формы должно содержать поясняющий текст: краткие информационные сообщения, которые должны раскрывать порядок работы с программой модели.

Текст, находящийся в форме, называется меткой. Добавляется метка к форме точно так же, как и поле редактирования. Пиктограмма метки (большая буква А) находится в палитре компонентов перед пиктограммой поля редактирования (см. рис. 8.6). После того как метка добавлена, можно, используя окно Object Inspector, изменить ее свойства.

К форме разрабатываемого приложения надо добавить восемь меток. Все метки будут представлять собой информационные сообщения. Добавьте метки и установите значения их свойств согласно табл. 8.5. Форма разрабатываемого приложения будет иметь вид, представленный на рис. 8.9.

Таблица 8.5. Свойства меток формы имитационной модели

Name

Labell

Label2

Label3

Label4

Label5

Label6

Label7

Label8

Caption

AutoSize

false

true

true

true

true

true

true

true

Top

0

30

60

90

30

60

90

120

Left

140

70

70

70

410

410

410

70

Wordwrap

true

true

true

true

true

true

True

true

ParentFont

false

true

true

true

true

true

true

true

Рис. 8.9.  Вид формы имитационной модели после добавления меток

Как видно по рис. 8.9, из полей редактирования необходимо удалить их имена Edit1…Edit7. На этом же рисунке указано свойство Caption для каждой метки - информационное сообщение. Например, для Labell: Введите исходные данные и нажмите кнопку ВВОД. Для Labell: Средний интервал поступления транспортов.

Свойство ParentFont метки Labell имеет значение false, поэтому свойство Font этой метки не наследует значения свойства Font "родителя", в данном случае основной формы. Это дает возможность установить свойства шрифта метки иные, чем у формы. У меток Label2…Label8 значение свойства ParentFont оставлено без изменения. Значит, они наследуют свойства Font "родителя".

Если свойство AutoSize (автоматический подгон размера) имеет значение true, Delphi автоматически устанавливает размеры метки в зависимости от количества символов текста метки, используемого шрифта и его размера. Если надо, чтобы метка представляла собой текст из нескольких строк, то свойству AutoSize надо присвоить значениеfalse и вручную установить значения свойств, определяющих ее размер.

У меток Label2…Label8 свойству AutoSize установлено значение true, а у метки Label1 - false.