В процессе разработки приложений на Delphi часто возникают ситуации, когда необходимо отследить, какой именно компонент отправил подсказку. Это может быть полезно, например, для отображения специфической информации в статус-баре в зависимости от источника подсказки. В Delphi 10.3.3 такой функционал реализован через события OnHint и OnShowHint компонента TApplicationEvents.
Проблема
В вашем приложении на Delphi 10.3.3 с использованием VCL для Windows, в обработчике события OnHint компонента TApplicationEvents, вы отображаете текущую подсказку в статус-баре. Однако вы хотели бы добавить специфический текст, содержащий данные во время выполнения, в зависимости от того, какой именно контрол отправил подсказку. К сожалению, параметр Sender в обработчике события не предоставляет этой информации.
Решение
Чтобы определить, какой контрол отправил подсказку, необходимо использовать событие OnShowHint, которое предоставляет доступ к информации о контроле, отображающем подсказку. В обработчике OnShowHint доступен параметр HintInfo, который содержит информацию о контроле (HintControl).
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: string;
var CanShow: boolean; var HintInfo: THintInfo);
begin
if HintInfo.HintControl = DesiredControl then
begin
// customize HintStr, and/or HintInfo fields, as needed...
end;
end;
В параметре HintInfo содержится множество полезной информации, включая HintControl, HintWindowClass, HintPos, HintMaxWidth, HintColor, CursorRect, CursorPos, ReshowTimeout, HideTimeout, HintStr и HintData.
Также стоит отметить, что для отображения подсказки в TStatusBar можно использовать свойство AutoHint. Если установить это свойство в True, статус-бар будет автоматически обновлять отображаемую подсказку. Однако, если установлен обработчик события OnHint, свойство AutoHint работать не будет.
Важные замечания
OnShowHint может вызываться и для контролов без подсказок, что может создать дополнительные проблемы.
Текст, добавленный в HintStr в обработчике OnShowHint, будет отображаться в подсказке при наведении курсора, но не в статус-баре, если вы хотите изменить подсказку в статус-баре, вам нужно будет использовать другой подход.
Убедитесь, что свойство TApplication.ShowHint установлено в True, так как по умолчанию оно False.
Заключение
Используя OnShowHint и параметр HintInfo, вы можете полностью кастомизировать подсказку, отображаемую в вашем приложении, и получать информацию о контроле, отправившем подсказку. Это позволяет вам гибко управлять отображением подсказок в вашем приложении Delphi.
Вопрос связан с отслеживанием источника подсказки в приложениях Delphi 10.3.3, чтобы в зависимости от этого источника отображать определенную информацию в статус-баре.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал