Название статьи для Контекста: "Интеграция иконки 'X' и системных уведомлений в TBalloonHint для Delphi"

Delphi , Синтаксис , Справочник по API-функциям

Интеграция иконки 'X' и системных уведомлений в TBalloonHint для Delphi

Вопрос, поставленный перед разработчиками, заключался в необходимости отображения иконки "крестика" (закрытия) в компоненте TBalloonHint, который используется в среде разработки Delphi. Пользователь хотел программно отображать подсказку в виде уведомления, похожего на те, что отображаются в системном трее. В случае если TBalloonHint не позволяет выполнить поставленную задачу, необходимо было рассмотреть альтернативные варианты.

Комментарии к вопросу:

Иконка закрытия добавляется путем установки стиля TTS_CLOSE для подложки Windows Tooltip Control. Однако, как отмечено в комментариях, TBalloonHint является кастомной нарисованной подсказкой, которая имитирует подсказку в виде шара, но не является таковой в глазах Windows. Это означает, что для добавления иконки закрытия потребуется переопределение метода PaintHint() и самостоятельная отрисовка кнопки, которая, однако, не будет функционировать как настоящая кнопка.

Подтвержденное решение:

Для реализации подсказки с иконкой закрытия можно использовать следующий код:

uses
  CommCtrl;

procedure ShowBalloonTip(hWnd: THandle; Icon: Integer; BackCL, TextCL: TColor; Title: PChar; Text: PWideChar);
const
  TOOLTIPS_CLASS = 'tooltips_class32';
  TTS_ALWAYSTIP = $01;
  TTS_NOPREFIX = $02;
  TTS_BALLOON = $40;
  TTF_SUBCLASS = $0010;
  TTF_TRANSPARENT = $0100;
  TTF_CENTERTIP = $0002;
  TTM_ADDTOOL = $0400 + 50;
  TTM_SETTITLE = (WM_USER + 32);
  ICC_WIN95_CLASSES = $000000FF;
type
  TOOLINFO = packed record
    cbSize: Integer;
    uFlags: Integer;
    hWnd: THandle;
    uId: Integer;
    rect: TRect;
    hinst: THandle;
    lpszText: PWideChar;
    lParam: Integer;
  end;

var
  hWndTip: THandle;
  ti: TOOLINFO;
begin
  // ... код для создания и отображения подсказки ...
end;

ShowBalloonTip(Button1.Handle, 4, clDefault, clRed, 'Baloon Title', 'Baloon text');

Также возможно использование класса-помощника для упрощения вызова функции отображения подсказки:

unit ComponentBaloonHintU;
// ... тип TIconKind, код класса TComponentBaloonhint и его реализация ...
end.

Button1.ShowBalloonTip(TIconKind.Error_Large, 'Baloon Title', 'Baloon text');

Важно отметить, что в более новых версиях Delphi (например, XE5) не следует использовать устаревшие константы и запись TOOLINFO, так как они не являются версиями для Unicode. Вместо этого следует использовать определения из CommCtrl, а также соответствующие приведение типов в SendMessage.

Заключение:

В данной статье был рассмотрен вопрос интеграции иконки 'X' в компонент TBalloonHint для Delphi. Представлены два способа реализации: через функцию ShowBalloonTip и через класс-помощник TComponentBaloonhint. Оба способа позволяют программно отображать подсказки в виде уведомлений, аналогичных системным. Приведенный код можно использовать в качестве основы для дальнейшей разработки и настройки под специфические нужды проекта.

Создано по материалам из источника по ссылке.

Компонент `TBalloonHint` в Delphi должен быть дополнен функционалом для отображения системной иконки закрытия и возможности отображения подсказок в виде уведомлений, аналогичных системным.

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

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

:: Главная :: Справочник по API-функциям ::