Difference between revisions of "TLabel/ru"
m (Fixed syntax highlighting) |
|||
| Line 21: | Line 21: | ||
* Создайте новый [[Event_order/ru|обработчик события]] для кнопки ''Button1'', просто дважды щелкнув на кнопке ''Button1''. | * Создайте новый [[Event_order/ru|обработчик события]] для кнопки ''Button1'', просто дважды щелкнув на кнопке ''Button1''. | ||
* Вставьте следующие строки кода в обработчик события OnClick кнопки ''Button1'': | * Вставьте следующие строки кода в обработчик события OnClick кнопки ''Button1'': | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
procedure TForm1.Button1Click(Sender: TObject); | procedure TForm1.Button1Click(Sender: TObject); | ||
const Cnt: Integer = 0; //Счетчик, в котором подсчитывается сколько раз была нажата кнопка | const Cnt: Integer = 0; //Счетчик, в котором подсчитывается сколько раз была нажата кнопка | ||
| Line 35: | Line 35: | ||
Для отображения многострочного текста вам необходимо вставить в подходящее место в строке ''[[End of Line/ru|символы обозначения конца строки]]'', чтобы переносить слова. | Для отображения многострочного текста вам необходимо вставить в подходящее место в строке ''[[End of Line/ru|символы обозначения конца строки]]'', чтобы переносить слова. | ||
Пример: | Пример: | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text'; | Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text'; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Latest revision as of 07:17, 1 March 2020
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (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';
См. также
