[Alexs55]

Доброго всем здравия

Требуется динамически создать несколько компонентов и объединить их в массив. В книгах и интернете нашел всё, что для этого необходимо сделать. НО.... (куда без него) вот здесь увидел такой код

Код:

pn := TPanel.Create(nil);

То есть у компонента нет владельца. Если у компонента есть владелец, то он (компонент) уничтожается одновременно с владельцем. В этом случае кто является владельцем и как происходит уничтожение динамически созданых компонентов при уничтожении формы. Может такие компоненты надо уничтожать вручную?

[NumLock]

у такого компонента владельца нет, соответственно его нужно удалять вручную. но если у нее есть родитель, то он ее удалит.

[Alexs55]

А назначить владельца после создания компонента возможно?

[NumLock]

нет. Owner только для чтения.

[poli-smen]

Сообщение от Alexs55

А назначить владельца после создания компонента возможно?

Можно:

Код:

  Application.InsertComponent(pn);
  // или так
  Form1.InsertComponent(pn);

Только зачем? Если нужно создать компонент и забыть о его освобождении, то сразу указывают владельца. Если необходимо "ручное" удаление, то при создании указывают nil (и потом не забывают освобождать).

[NumLock]

InsertComponent

Oops, забыл)

[poli-smen]

Сообщение от NumLock

Oops, забыл)

Ну по правде говоря InsertComponent слишком "низкоуревневая" операция и злоупотреблять ею не стоит (даже не знаю почему Borland сделал её как public, а не хотя бы как protected). В случае если компонентом уже владеет кто-то, то нужно не забывать старому владельцу делать RemoveComponent иначе у одного компонента будет несколько владельцев, каждый из которых впоследствии будут пытаться уничтожать его, что конечно приведёт к плохим последствиям. Вобщем за правило лучше взять: либо сразу при создании указывать владельца, либо при создании указывать nil и самому заботиться об уничтожении.

[Aristarh Dark]

Вообще-то InsertComponent проверяет наличие владельца.

[Alexs55]

Спасибо за разъяснения. Осталась пару вопросов по данной теме. Так сказать "для повышения образованности" (почтальон Печкин). Без ответа жить буду, но всётаки..
1. Зачем нужны компоненты без владельца.
2. На форумах многие предлагают такой вариант:

Код:

pn := TPanel.Create(self);

Тоесть компонент владеет сам собой. Очень похоже на

Код:

pn := TPanel.Create(nil);

. Раз советуют - значит работает. Только вот на сколько это корректно.

[Aristarh Dark]

1. Невизуальным компонентам владелец не обязателен. Я, например, частенько TADOQuery создаю внутри фуункций для того чтобы заврос к БД делать.
2. Self - это не панель, это компонент внутри метода которого ты описываешь создание панели. Это корректно.

[Alexs55]

Прошу прощенья, вопрос криво задал (за мной такое водится). Ну и получил.... Попробую по другому задать вопрос:
2. Если компонент создан ... .Create(self);, то кто будет являться его владельцем?

[poli-smen]

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

Вообще-то InsertComponent проверяет наличие владельца.

В какой версии Delphi? У меня в Delphi 7 не проверяет:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  pn, pn2, pn3: TPanel;
begin
  pn:=TPanel.Create(nil);

  pn2:=TPanel.Create(nil);
  pn3:=TPanel.Create(nil);

  pn2.InsertComponent(pn);
  pn3.InsertComponent(pn);

  pn2.Free;
  pn3.Free;
end;

Выдаёт ошибку: Access violation at address 00000000. Read of address 00000000.

[poli-smen]

Сообщение от Alexs55

Прошу прощенья, вопрос криво задал (за мной такое водится). Ну и получил.... Попробую по другому задать вопрос:
2. Если компонент создан ... .Create(self);, то кто будет являться его владельцем?

В методе какого компонента этот Create(self) был вызван, тот и будет владельцем.

[NumLock]

ну только Self ссылка на объект в методе которого он используется. это не только к компонентам применимо. а InsertComponent действительно не нужен, иначе я бы про него не забыл)))

[poli-smen]

Сообщение от NumLock

ну только Self ссылка на объект в методе которого он используется. это не только к компонентам применимо. а InsertComponent действительно не нужен, иначе я бы про него не забыл)))

Self понятно, что можно использовать в методе любого класса, но владельцем может быть только TComponent и его наследники (т.е. только компоненты). Если же вызвать .Create(self); в методе класса который не является компонентом, то это уже не сделает его владельцем вновь созданного компонента, а будет что-то совсем другое. В вопросе же было: "Если компонент создан ... .Create(self);, то кто будет являться его владельцем?"