Quellcode durchsuchen

* Removing from previous owner after doing validation

Michaël Van Canneyt vor 4 Jahren
Ursprung
Commit
0d7474cec4
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      packages/rtl/classes.pas

+ 1 - 1
packages/rtl/classes.pas

@@ -5199,9 +5199,9 @@ procedure TComponent.InsertComponent(AComponent: TComponent);
 
 begin
   AComponent.ValidateContainer(Self);
+  ValidateRename(AComponent,'',AComponent.FName);
   if AComponent.FOwner <> nil then
     AComponent.FOwner.RemoveComponent(AComponent);
-  ValidateRename(AComponent,'',AComponent.FName);
   Insert(AComponent);
   If csDesigning in FComponentState then
     AComponent.SetDesigning(true);