diff --git a/lcl/grids.pas b/lcl/grids.pas
index efb2fc88ad..ea8e1e04b4 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -4186,7 +4186,7 @@ begin
     Hint := txt;
     //set Application.Hint as well (issue #0026957)
     Application.Hint := GetLongHint(AppHint);
-    Application.ActivateHint(APoint, true);
+    Application.ActivateHint(ClientToScreen(APoint), true);
   end else
     HideCellHintWindow;
 end;