diff --git a/components/ideintf/idehelpintf.pas b/components/ideintf/idehelpintf.pas
index 1a90ee1376..587f855f4e 100644
--- a/components/ideintf/idehelpintf.pas
+++ b/components/ideintf/idehelpintf.pas
@@ -18,7 +18,7 @@ interface
 
 uses
   Classes, SysUtils, types, LCLProc, Forms, Controls, HelpIntfs, LazHelpIntf,
-  TextTools;
+  LMessages, LCLType, TextTools;
 
 type
   { THelpDBIRegExprMessage
@@ -140,6 +140,11 @@ type
     function(Owner: TComponent): TAbstractIDEHTMLProvider;
 
 
+  TSolidHintWindowRendered = class(THintWindowRendered)
+  protected
+    procedure WMNCHitTest(var Message: TLMessage); message LM_NCHITTEST;
+  end;
+
   { THintWindowManager }
 
   THintWindowManager = class
@@ -195,6 +200,13 @@ var
 
 implementation
 
+{ TSolidHintWindowRendered }
+
+procedure TSolidHintWindowRendered.WMNCHitTest(var Message: TLMessage);
+begin
+  Message.Result := HTCLIENT;
+end;
+
 { THelpDBIRegExprMessage }
 
 constructor THelpDBIRegExprMessage.Create(TheNode: THelpNode;
@@ -289,7 +301,7 @@ function THintWindowManager.HintRenderWindow: THintWindowRendered;
 begin
   if FHintRenderW = nil then
   begin
-    FHintRenderW := THintWindowRendered.Create(Nil);
+    FHintRenderW := TSolidHintWindowRendered.Create(Nil);
     FHintRenderW.AutoHide := FAutoHide;
     FHintRenderW.HideInterval := FHideInterval;
     FHintRenderW.OnMouseDown := FOnMouseDown;