paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 11:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove component from previous owner. Fix issue #39529

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-01-13 22:41:01 +01:00
parent 42361be239
commit d6a26f2c28
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/compon.inc
View File

@ -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