TLabel/ru

TLabel - компонент для создания одно- или многострочной текстовой подписи для другого компонента. Компонент TLabel является потомком TGraphicControl и доступен на вкладке Standart палитры компонентов.

Использование

Компонент TLabel является одним из базовых компонентов, которые можно использовать на форме. Большинство меток используется для подписей других компонентов, таких как Edit, Memo, StringGrids и т.д. Компонент TLabel предоставляет множество событий, но в большинстве случаев в них нет необходимости.

Вы можете добавить метку на форму, выбрав TLabel (обозначается символами Abc) на палитре компонентов Standard, и поместить её, щелкнув на форме.

Для изменения текста Label только что вставленной на форму метки можете сделать следующее:

• Выберите метку TLabel на форме одним щелчком.
• Перейдите на вкладку Свойства в окне Инспектор Объектов.
• Выберите свойство Caption и измените его в поле рядом.
• Аналогично вы можете выбрать свойство Name и дать метке подходящее имя.

Изменение текста метки во время выполнения

Конечно, вы можете изменить отображаемый текст в процессе выполнения программы.

В следующем примере показано, как это можно сделать:

• Создайте новое графическое приложение с формой Form1. Ещё добавьте на форму кнопку TButton Button1 и метку TLabel Label1, выбрав подходящие компоненты на вкладке Standard и щелкнув на форме Form1 (метка должна быть над кнопкой).
• Создайте новый обработчик события для кнопки Button1, просто дважды щелкнув на кнопке Button1.
• Вставьте следующие строки кода в обработчик события OnClick кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);
const Cnt: Integer = 0;                     //Счетчик, в котором подсчитывается сколько раз была нажата кнопка
begin
  inc(Cnt);                                 //Увеличивает счетчик на единицу
  Label1.Caption:='Button was clicked ' +   //Выводит текст в метке Label1
    IntToStr(Cnt) + ' times';
end;

• Запустите программу и проверьте изменение текста метки при нажатиях на кнопку.

Комментарии

Для отображения многострочного текста вам необходимо вставить в подходящее место в строке символы обозначения конца строки, чтобы переносить слова. Пример:

Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text';

См. также

• Документация по TLabel
• TStaticText

From the Free Pascal wiki, page "TLabel/ru", as it stood on 2020-03-01 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.