diff --git a/lcl/include/customframe.inc b/lcl/include/customframe.inc
index ecf7f13207..47cdc43185 100644
--- a/lcl/include/customframe.inc
+++ b/lcl/include/customframe.inc
@@ -123,6 +123,7 @@ procedure TCustomFrame.SetParent(AParent: TWinControl);
   end;
 
 begin
+  if Parent=AParent then exit;
   if Parent<>nil then
     UpdateActionLists(Self,opRemove);
   if (Parent=nil) and HandleAllocated then