Выводим подсказки на TStatusBar

Delphi , Синтаксис , Hint подсказки

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
   procedure MyHint(Sender: TObject);
 end;


    implementation

  {....}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Application.OnHint := MyHint;
   ShowHint           := True;
   Button1.Hint       := 'normal yellow hint|Text in Statusbar';
   Button2.Hint       := 'only yellow hint|';
   Button3.Hint       := '|text only in statusbar';
   Edit1.Hint         := 'same text';
 end;

 procedure TForm1.MyHint(Sender: TObject);
 begin
   StatusBar1.SimpleText := Application.Hint;
 end;

Here's the translation of the content into Russian:

Код программирования на языке Delphi, создает панель состояния и задает подсказки для нескольких кнопок и контрола редактирования. Процедура MyHint обновляет текст, отображаемый в панели состояния, с помощью текста подсказки.

Разбивка кода:

1. В обработчике события FormCreate устанавливается событие OnHint на MyHint.
2. Свойство ShowHint установлено в True, что позволяет отображать подсказки.
3. Подсказки присваиваются нескольким кнопкам и контролу редактирования:
   • Кнопка 1 имеет текст подсказки "normal yellow hint|Text in Statusbar".
   • Кнопка 2 имеет текст подсказки только "only yellow hint|" (замечается отсутствие leading space).
   • Кнопка 3 имеет текст подсказки "|text only in statusbar" (замечается trailing space).
   • Edit1 имеет текст подсказки "same text".
4. В процедуре MyHint, когда событие OnHint происходит, код обновляет текст, отображаемый в панели состояния, с помощью текста подсказки, используя StatusBar1.SimpleText.

Подсказки отображаются в панели состояния следующим образом:

• Кнопка 1: Весь текст подсказки "normal yellow hint|Text in Statusbar" отображается.
• Кнопка 2: Только первая часть текста подсказки "only yellow hint|" отображается, без leading space.
• Кнопка 3: Только trailing space и текст "text only in statusbar" отображаются.
• Edit1: Весь текст подсказки "same text" отображается.

Код демонстрирует использование подсказок с компонентом TStatusBar Delphi и настройку отображения подсказок для различных контролов.

В статье описывается пример программирования для вывода подсказок на компонент TStatusBar в Delphi, используя событие OnHint и метод SimpleText.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Hint подсказки ::