ShowBalloonTip не отображает кириллицу - Lazarus - Ответ 8971451

var
  hWndTip: THandle = 0; // перенес сюда, чтобы компилятор не вякал о неинициализированной переменной
 
procedure ShowBalloonTip(Control: TWinControl; Icon: integer; BackCL, TextCL: TColor;
                         Title: String; Text: string); // передаем строки как обычный String
 
// все описания констант есть в CommCtrl, не нужно дублировать их
 
var
  hWnd : THandle;
  ti: TOOLINFOW; // Юникодная версия !!!
begin
  if hWndTip <> 0 then  DestroyWindow(hWndTip);
 
  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_SUBCLASS;
    ti.hWnd := hWnd;
    ti.lpszText := PWideChar(UTF8ToUTF16(Text)); // Вот таким вот образом конвертируем строку в PWideChar
 
    GetClientRect(hWnd, ti.rect);
    SendMessage(hWndTip,TTM_SETDELAYTIME, TTDT_INITIAL ,100);
    SendMessage(hWndTip,TTM_SETDELAYTIME, TTDT_AUTOPOP ,20000);
    if BackCL <> clDefault then SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
    if TextCL <> clDefault then SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
 
    SendMessage(hWndTip, TTM_ADDTOOLW, 1, integer(@ti)); // Здесь тоже Юникодная версия сообщения
    SendMessage(hWndTip, TTM_SETTITLEW, Icon, integer(PWideChar(UTF8ToUTF16(Title)))); // и тут тоже
  end;
end;
 
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
begin
  ShowBalloonTip(Button1, 0, 2, clRed, 'Балун', 'пример балуна');
end;