diff --git a/src/ce_editor.lfm b/src/ce_editor.lfm
index 783f3936..e4a52d29 100644
--- a/src/ce_editor.lfm
+++ b/src/ce_editor.lfm
@@ -26,6 +26,7 @@ inherited CEEditorWidget: TCEEditorWidget
         BorderSpacing.Around = 2
         TabOrder = 0
         OnChange = PageControlChange
+        OnChanging = PageControlChanging
         Options = [nboShowCloseButtons, nboShowAddTabButton]
         TabDragMode = dmAutomatic
         TabDragAcceptMode = dmAutomatic
diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index cb0f4c22..ac781979 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -43,6 +43,7 @@ type
     procedure mnuedRedoClick(Sender: TObject);
     procedure mnuedJum2DeclClick(Sender: TObject);
     procedure PageControlChange(Sender: TObject);
+    procedure PageControlChanging(Sender: TObject; var AllowChange: Boolean);
   protected
     procedure updateDelayed; override;
     procedure updateImperative; override;
@@ -279,6 +280,13 @@ begin
   updateImperative;
 end;
 
+procedure TCEEditorWidget.PageControlChanging(Sender: TObject; var AllowChange: Boolean);
+begin
+  if fDoc = nil then exit;
+  fDoc.hideCallTips;
+  fDoc.hideDDocs;
+end;
+
 procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   case Key of