Переопределение свойства Caption программным кодом

Вывод текста, состоящего из нескольких строк, возможен только при наступлении какого-либо события во время выполнении программы. Эта задача решается в несколько этапов:

• Подготовка метки.

• Определение события, при наступлении которого будет осуществлён вывод.

• Описание констант и переменных, которые будут использованы при вводе/выводе.

• Разработка программного кода, реализующего вывод текста.

1. Подготовка метки. Установите компонент TLabel, задайте ему достаточные размеры и переопределите следующие свойства.

AutoSize: Boolean – разрешает/запрещает (True/False) автоматическое изменение размера метки.

WordWrap :Boolean – разрешает/запрещает (True/False) разрыв строки на границе слова.

Установите AutoSize → False

WordWrap → True

2. Определение события. Вывод текста можно связать с наступлением одного из следующих событий.

OnActivate – активизирует форму и передаёт ей фокус.

OnClick – щелчок мышкой по форме.

OnDblClick - двойной щелчок мышкой по форме.

Для примера выберем событие OnClick .

Форма  Object Inspector  Events  OnClick  щелчок по форме

Выбор события приведёт к добавлению программного кода в модуль. В раздел interface, в описание объекта TForm1 будет добавлен заголовок процедуры обработки события - procedure FormClick(Sender: TObject). В раздел implementation - шаблон этой процедуры. В приведённом примере добавленный текст выделен курсивом.

type

TForm1 = class(TForm)

……………………

Label2: TLabel;

procedure FormClick(Sender: TObject);

end;

………………………………………………

Implementation

procedure TForm1.FormClick(Sender: TObject);

begin

end;

3. Разработка программного кода для вывода текста.

Вариант 1. Для вывода текста в процедуре обработки события необходимо задать значение строковой константы (Str1), а затем свойству .Caption присвоить это значение.

procedure TForm1.FormClick(Sender: TObject);

Const Str1= 'Мы все учились понемногу,' #10+ //#10 – перевод строки

'Чему-нибудь и как-нибудь.'; // + объединение строк

begin

Label2.Caption := Str1 ;

end;

Вариант 2. Значение строковой константы (Str1) задано в разделе implementation, а в процедуре обработки события свойству Caption присвоено значение константы.

Implementation

………………

Const Str1= 'Мы все учились понемногу, '#10+ //#10 – перевод строки

'Чему-нибудь и как-нибудь.'; // + объединение строк

procedure TForm1.FormClick(Sender: TObject);

begin

Label2.Caption := Str1 ;

end;

Если константа (или переменная) используется в нескольких процедурах, то вариант 2 предпочтительнее.

8. TEdit - однострочное редактируемое текстовое поле

Компонент класса TEdit позволяет осуществлять ввод, редактирование и отображение текстовой строки.

Text :String - центральное свойство, отображаемая строка.

CharCase – способ автоматического преобразования регистра букв:

esNormal – без преобразования;

esUpperCase – все буквы прописные;

esLowerCase – все буквы строчные.

ReadOnly –(true/false) – разрешает/запрещает изменение текста.

Свойства ⁺Font, AutoSize, WordWrap аналогичны свойствам компонента TLabel