Sfoglia il codice sorgente

* Remove component from previous owner. Fix issue #39529

Michaël Van Canneyt 3 anni fa
parent
commit
d6a26f2c28
1 ha cambiato i file con 2 aggiunte e 0 eliminazioni
  1. 2 0
      rtl/objpas/classes/compon.inc

+ 2 - 0
rtl/objpas/classes/compon.inc

@@ -603,6 +603,8 @@ Procedure TComponent.InsertComponent(AComponent: TComponent);
 begin
   AComponent.ValidateContainer(Self);
   ValidateRename(AComponent,'',AComponent.FName);
+  If AComponent.FOwner<>Nil then
+    AComponent.FOwner.Remove(AComponent);
   Insert(AComponent);
   AComponent.SetReference(True);
   If csDesigning in FComponentState then