Owner и Parent в собственном компоненте.

[postal2]

Здравствуйте.
Пишу свой компонент, есть несколько вопросов.

Допустим, код

...

type
  TSomeClass = class(TSomeAnotherClass)
  private
    SomeImage: TImage;
  public
    constructor Create(AOwner: TComponent);
  end;

Так вот, при создании SomeImage в конструкторе какие Owner и Parent правильно выставлять? Делаю и то, и другое как Self (ну то есть TSomeClass является и тем, и другим), но при уничтожении экземпляра класса TSomeClass получаю ошибку Invalid pointer operation. Пока что грешу только на неправильное выставление Owner и Parent.

Собственно вопрос - как правильно?

Чуть больше кода -

constructor Create(AOwner: TComponent);
begin
  SomeImage := TImage.Create(Self);
  SomeImage.Parent := Self;
  inherite Create(AOwner);
end;

Destructor Free;
begin
  SomeImage.Free;
  inherited Free
end;

Ещё вопрос - при уничтожении формы не вызывается деструктор класса, хотя и Owner - форма.

[Пепел Феникса]

Parent вы не задаете сами.
Owner берете из параметра конструктора.

[postal2]

То есть Parent остаётся nil, я правильно понимаю?

Стоп стоп стоп.. а если TSomeClass - визуальный компонент, то нужно Parent в любом случае задавать. Иначе Image банально не отображается на нём.

Далее, если я задаю функцию типа AddAnotherImage, которая добавляет ещё одну картинку на мой компонент - кого тогда ставить Owner'ом?

[Аватар]

    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

constructor TSomeClass.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  SomeImage:=TImage.Create(Self);
  SomeImage.Parent:=Self;
end;

destructor TSomeClass.Destroy;
begin
  SomeImage.Free;
  inherited Destroy;
end;

[postal2]

С Destroy проходит, а вот на Create жалуется, что
[DCC Error] FileView.pas(42): E2170 Cannot override a non-virtual method

На Free жаловалась так же.
К списку вопросов - чем Free отличается от Destroy?
Если мне не изменяет память, то Free просто проверяет не разрушен ли компонент и только после этого вызывает Destroy.

[Пепел Феникса]

С Destroy проходит, а вот на Create жалуется, что
[DCC Error] FileView.pas(42): E2170 Cannot override a non-virtual method

вы не наследуетесь от TComponent чтоль?

К списку вопросов - чем Free отличается от Destroy?

деструктор это destroy, перегружаете его, и только его, free не трогаете.
free делает проверку на nil.

[Аватар]

Как в TSomeAnotherClass прописан Create? И какой класс он наследует? Скорее всего в его конструкторе не стоит override
Free это деструктор. Вы удаляя вызовите Free, а он уже деструктор вызовет

[postal2]

От TScrollBox, который в общем-то TComponent является.

Ну в общем-то я разобрался, спасибо большое за советы, впредь буду переопределять именно Destroy.

p.s. ошибка оказалась в совершенно другой функции, которая отвечала за перераспределение объектов на экране.

[GunSmoker]

Стоп стоп стоп.. а если TSomeClass - визуальный компонент, то нужно Parent в любом случае задавать. Иначе Image банально не отображается на нём.

Он и будет задан, но не в конструкторе, а позже. Ты просто не трогай Parent, пока он тебе не понадобится (читай: вызовут твой метод Show). А если он тебе нужен, но его нет - так и говори:

uses
  Consts;

...
  if Parent = nil then
    raise EInvalidOperation.CreateFmt(SParentRequired, [Name]);
...

[phomm]

Со вчерашнего дня думал, стоит ли написать, и всё же решил.

На мой взгляд вызывать SomeImage.Free; не нужно. Ведь задан владелец, в унаследованном деструкторе владелец чистит своих подопечных.

Таким образом, думаю, получается дабл-free, ведь ссылка на подопечного ссылается на память, но вот объект из этой памяти уже почищен, и будет попытка обращения к адресу вмт (методу деструктора в вмт) уничтоженного объекта.

Ошибка может оказаться незамеченной из-за особенности менеджера памяти дельфи, но когда-то будет и крешится с АВ