diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas index 6b8c25daf..c2b5b2f2d 100644 --- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas +++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas @@ -650,6 +650,9 @@ procedure TSpkToolbar.CMHintShow(var Message: TLMessage); var PanelIdx, ItemIdx: Integer; begin + with TCMHintShow(Message).HintInfo^ do + if HintStr <> '' then + CursorRect := Rect(CursorPos.X, CursorPos.Y, CursorPos.X, CursorPos.Y); inherited; if TabIndex >= 0 then begin