Delphi Многострочный Label

В Delphi есть компонент TLabel, который по умолчанию не поддерживает многострочный текст. Однако, можно достичь такого эффекта, используя несколько лейблов или другую компоненту, которая поддерживает многострочный текст, например, TMemo.

Рассмотрим пример использования нескольких TLabel для создания многострочного текста. Для этого необходимо установить высоту каждого лейбла так, чтобы они вмещали необходимое количество строк текста. Например, для текста, состоящего из трех строк, каждый лейбл должен иметь высоту, равную высоте шрифта умноженной на три.

Label1.Caption := 'Первая строка текста';
Label1.Height := Label1.Font.Height;

Label2.Caption := 'Вторая строка текста';
Label2.Height := Label2.Font.Height;

Label3.Caption := 'Третья строка текста';
Label3.Height := Label3.Font.Height;

Но наиболее удобный способ создания многострочного текста - использование компоненты TMemo. Необходимо установить свойство WordWrap в значение True, чтобы текст переносился на новую строку при достижении границы компоненты. Также необходимо установить свойство ReadOnly в значение True, чтобы предотвратить редактирование текста пользователем.

Memo1.WordWrap := True;
Memo1.ReadOnly := True;
Memo1.Lines.Add('Первая строка текста');
Memo1.Lines.Add('Вторая строка текста');
Memo1.Lines.Add('Третья строка текста');