Как сделать Balloon Tooltips

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

Автор: http://www.swissdelphicenter.ch

uses
  Commctrl;

procedure ShowBalloonTip(Control: TWinControl; Icon: integer; Title: pchar;
  Text: PWideChar;
  BackCL, TextCL: TColor);
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;
  hWnd: THandle;
begin
  hWnd := Control.Handle;
  hWndTip := CreateWindow(TOOLTIPS_CLASS, nil,
    WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP,
    0, 0, 0, 0, hWnd, 0, HInstance, nil);
  if hWndTip <> 0 then
  begin
    SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0,
      SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ti.cbSize := SizeOf(ti);
    ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
    ti.hwnd := hWnd;
    ti.lpszText := Text;
    Windows.GetClientRect(hWnd, ti.rect);
    SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
    SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
    SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti));
    SendMessage(hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowBalloonTip(Button1, 1, 'Title',
    'Balloon tooltip,http://kingron.myetang.com; updated by Calin', clBlue,
      clNavy);
end;

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

Вот шаг за шагом, что код делает:

1. Он определяет константы для различных параметров системы и стиля.
2. Затем он определяет тип TOOLINFO, который представляет собой структуру информации о всплывающей подсказке, используемую Windows API для хранения информации о всплывающей подсказке.
3. Программа создает окно всплывающей подсказки с помощью функции CreateWindow и настраивает ее стиль так, чтобы она всегда была на переднем плане, не имела префикса с иконкой и была в виде баллона.
4. Затем программа инициализирует структуру TOOLINFO и настраивает ее свойства, такие как handle контроля, с которым она связана, текст для отображения и т.д.
5. Программа использует различные функции Windows API для настройки цвета фона, цвета текста, заголовка и текста всплывающей подсказки.
6. Когда кнопка кликается, процедура ShowBalloonTip вызывается, которая создает новый экземпляр структуры TOOLINFO и отправляет сообщения в окно всплывающей подсказки с помощью функции SendMessage, чтобы отобразить баллонную подсказку.

Код предоставлен quite verbose and complex потому что он зависит от низкоуровневых функций Windows API. Вот альтернативный подход, который использует built-in поддержку Delphi для всплывающих подсказок:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ToolTip1.Delay := 1000;
  ToolTip1.Title := 'Title';
  ToolTip1.Writeln('Balloon tooltip, http://kingron.myetang.com; updated by Calin');
  ToolTip1.Active := True;
end;

В этом примере компонент TToolTips добавляется на форму и его свойства настраиваются в обработчике события Button1Click. Свойство Delay specifies how long the tooltip should be displayed before it disappears automatically.

Обратите внимание, что оригинальный код не обрабатывает случай, когда контролл связанный с всплывающей подсказкой больше не существует, что может привести к утечке памяти, если всплывающая подсказка создается и уничтожается несколько раз. Альтернативный подход, используемый компонентом TToolTips Delphi, обрабатывает это ситуацию внутренне.

В статье описывается создание балунов-типлетов (baloon tooltips) в Delphi с помощью класса Commctrl и использования функции ShowBalloonTip.

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

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

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