[poli-smen]

Сообщение от Aristarh Dark

XE

Код:

procedure TComponent.InsertComponent(AComponent: TComponent);
begin
  AComponent.ValidateContainer(Self);
  if AComponent.FOwner <> nil then
    AComponent.FOwner.RemoveComponent(AComponent);
  ValidateRename(AComponent, '', AComponent.FName);
  Insert(AComponent);
  AComponent.SetReference(True);
  if csDesigning in ComponentState then
    AComponent.SetDesigning(True);
  Notification(AComponent, opInsert);
end;

и приведенный код не валится.

Значит таки "допилили" этот метод
В Delphi 7 всё тоже самое, за исключением отсутствия вот этого:

Код:

  if AComponent.FOwner <> nil then
    AComponent.FOwner.RemoveComponent(AComponent);

Так что всё же лучше не злоупотреблять этим методом.