Hint (подсказку) На передний план

[Port 111]

Здравствуйте. Столкнулся с такой проблемой... Есть форма, на форме ListView с ViewStyle=vsReport (таблица). И в этой таблице если строка полностью не помещается в столбец, то при наведении на эту строку выскакивает hint который показывает всю строку. Причем этот hint я нигде не включал, он срабатывает по умолчанию.
Но вот если я у формы выставляю свойство FormStyle=fsStayOnTop (на передний план), то этот hint отображается под формой... см. картинку Wink

Подскажите как вывести этот hint на передний план?

Заранее спасибо.

[XE5]

Сообщение от Port 111

Причем этот hint я нигде не включал, он срабатывает по умолчанию.

Этот Hint формирует сама Win, и ей глубоко по фиг, что там включено, или выключено. Решений у проблемы два.
1 - запретить Win показывать Hint.

uses CommCtrl; 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView_SetExtendedListViewStyle(ListView1.Handle,
    ListView_GetExtendedListViewStyle(ListView1.Handle) and not LVS_EX_INFOTIP);
end;

2 - поставить хук.

function HintWindowWndProcHook (Code: Integer; wParam: WParam; lParam: LParam): LRESULT; stdcall;
var
  Buf : array [0..1000] of char;
  HookStruct : PCWPStruct;
  WindowPosStruct : PWindowPos;
begin
  HookStruct := Pointer (lParam);
  case HookStruct.message of
    WM_WINDOWPOSCHANGING :
      begin
        WindowPosStruct := PWindowPos (Pointer (HookStruct.lParam));
        GetClassName (WindowPosStruct.hwnd, @Buf, SizeOf (Buf));
        if SameText ('tooltips_class32', Buf) then begin
          SetWindowPos (WindowPosStruct.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOSENDCHANGING or SWP_NOACTIVATE);
        end;
      end;
  end;
  Result := CallNextHookEx(varWndProcHookHandle, Code, wParam, lParam);
end;

initialization
  varWndProcHookHandle := SetWindowsHookEx(WH_CALLWNDPROC, HintWindowWndProcHook, 0, GetCurrentThreadId);
finalization
  UnhookWindowsHookEx (varWndProcHookHandle);
end.