diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index d1780770..514c5c11 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -103,6 +103,7 @@ type
     procedure HintTimerEvent(sender: TObject);
     procedure InitHintWins;
   protected
+    procedure MouseLeave; override;
     procedure SetVisible(Value: Boolean); override;
     procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
     procedure UTF8KeyPress(var Key: TUTF8Char); override;
@@ -402,7 +403,12 @@ end;
 procedure TCESynMemo.SetVisible(Value: Boolean);
 begin
   inherited;
-  if Value then setFocus;
+  if Value then
+    setFocus
+  else begin
+    fDDocWin.Hide;
+    fCallTipWin.Hide;
+  end;
 end;
 
 procedure TCESynMemo.InitHintWins;
@@ -640,6 +646,12 @@ begin
   result += fMousePos.x;
 end;
 
+procedure TCESynMemo.MouseLeave;
+begin
+  fDDocWin.Hide;
+  fCallTipWin.Hide;
+end;
+
 procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
 var
   dX, dY: Integer;