diff --git a/designer/anchoreditor.pas b/designer/anchoreditor.pas
index 49397491e3..8680326ae4 100644
--- a/designer/anchoreditor.pas
+++ b/designer/anchoreditor.pas
@@ -156,6 +156,7 @@ type
                             var SelectedControlCount: integer);
   protected
     procedure KeyUp(var Key: Word; Shift: TShiftState); override;
+    procedure UpdateShowing; override;
   public
     destructor Destroy; override;
     class function ControlToStr(AControl: TControl): string;
@@ -680,6 +681,13 @@ begin
   ExecuteIDEShortCut(Self,Key,Shift,nil);
 end;
 
+procedure TAnchorDesigner.UpdateShowing;
+begin
+  inherited UpdateShowing;
+  if IsVisible and fNeedUpdate then
+    Refresh;
+end;
+
 procedure TAnchorDesigner.FillComboBoxWithSiblings(AComboBox: TComboBox);
 var
   sl: TStringList;