Автоматическое уничтожение объекта

[mutabor]

Как в своем классе сделать так чтобы его объект автоматически уничтожался, когда уничтожается родитель?

TMyClass = class
  MyPaint: TPaintBox;
  Timer: TTimer;
  procedure MyPaintDraw(Sender: TObject);
  procedure MyPaintMouseMove(Sender: TObject; Shift: TShiftState; X,
  procedure TimerTick(Sender: TObject);
  constructor Create(Owner: TComponent; ParentCtrl: TWinControl; fn: string);
  destructor Destroy; override;
  end;

{MyClass}

constructor TMyClass.Create(Owner: TComponent; ParentCtrl: TWinControl; fn: string);
begin
MyPaint:=TPaintBox.Create(Owner);
MyPaint.Parent:=ParentCtrl;
MyPaint.Align:=alClient;
MyPaint.OnPaint:=MyPaintDraw;
MyPaint.OnMouseMove:=MyPaintMouseMove;
Timer:=TTimer.Create(Owner);
Timer.OnTimer:=TimerTick;
//Parent:=ParentCtrl;
end;

destructor TMyClass.Destroy;
begin
FreeAndNil(Timer);
FreeAndNil(MyPaint);
end;

//в программе

//MyTab: TTabSheet;
MyClass:=TMyClass.Create(Form1,MyTab,fn);

//освобождение вкладки, мне надо чтобы автоматически освобождался мой объект
PageControl1.ActivePage.Free;

Другими словами как заставить срабатывать деструктор Destroy?
Пробовал унаследовать его от TControl
TMyClass = class(TControl)
и затем назначить родителя
Parent:=ParentCtrl;
эта строка вызывает ошибку при выполнении, присваивание свойству Owner:=ParentCtrl; ошибки не вызывает но и не работает, Destroy не вызывается.

[NikLik]

В деструктор MyTab(ParentCtrl) добавить строчку MyClass.Destroy.
Если таковых не 1, а больше, можно просто перебрать все компоненты и посмотреть на (Owner=ParentCtrl) и класс.

[alexBlack]

Если наследовать от TControl, то так:

type
   TMyClass = class(TControl)
      constructor Create(Owner: TComponent; ParentCtrl: TWinControl; fn: string);
      destructor Destroy; override;
   end;

constructor TMyClass.Create(Owner: TComponent; ParentCtrl: TWinControl; fn: string);
begin
   inherited Create(ParentCtrl);
   // не присваивание - а именно вызов констрактора
end;

Не совсем корректно поступаем с констрактором (в смысле замещаем виртуальный), но работает.

[mutabor]

alexBlack, так Destroy автоматически вызывается, но... Опять ошибка в ntdll

У меня уже каша в голове от этих Owner, Parent и прочего.

Вобщем опишу задачу, к-рую хочу реализовать: есть свой класс, в нем таймер и пэйнтбокс, ну и другие нужные мне свойства. Объекты этого класса создаются динамически. Родителем (пэйнтбокса как минимум) должен быть TTabSheet (это обязательно, на нем они отображаются) остальное не ясно, кто должен быть родителем (Parent), владельцем (Owner) моего объекта, объектов (таймер и прочие) внутри моего? Как вообще правильно реализуется этот механизм автоматического освобождения?

p.s. Я тут подумал, можно убрать все мое из конструктора, и вынести в метод, и вызывать следом за созданием объекта этот метод и передать в него что нужно. А конструктор сделать стандартный каким он должен быть, может так будет лучше?

[alexBlack]

В первый раз просмотрел:

constructor Create;
MyPaint:=TPaintBox.Create(Owner);   
Timer:=TTimer.Create(Owner);   
...  
destructor TMyClass.Destroy;   
begin  
FreeAndNil(Timer);      // Мы не должны освобождать эти объекты
FreeAndNil(MyPaint);   // Их освободит владелец

Вот пример:

type
  TMyClass = class(TControl)
     MyPaint: TPaintBox;
     Timer: TTimer;
     constructor Create(aOwner: TComponent); override;
     destructor Destroy; override;
     procedure Connect(AParent:TWinControl);
  end;

// Owner - владелец - он же уничтожает наш объект.
// Если не указан, то мы сами должны освободить
constructor TMyClass.Create(aOwner: TComponent);
begin
   inherited Create(aOwner);
   MyPaint := TPaintBox.Create(aOwner);
   Timer := TTimer.Create(nil);
end;

destructor TMyClass.Destroy;
begin
   //MYPaint.free;    уничтожится при удалении владельца
   Timer.free;     // timer без владельца, поэтому уничтожаем сами
   ShowMessage('aaa');
   inherited Destroy;
end;

// Устанавливает объект, на котором будет отображаться
procedure TMyClass.Connect(AParent:TWinControl);
begin
   MyPaint.Parent := aParent;
end;

procedure TForm1.FormCreate(Sender: TObject);
var C:TMyClass;
begin
   C := TMyClass.Create(TabSheet1);
   C.Connect(TabSheet1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   TabSheet1.free;
end;

-----------------------
Кстати, кто уничтожает TabSheet ? С этим то-же могут быть проблемы. В методах MyClass этого делать не желательно. Лучше отправить сообщение форме чтобы она уничтожила.

[mutabor]

alexBlack, Спасибо большое.

Уже потихоньку своим ходом приблизительно до такого же варианта дошел, с помощью исходников VCL (делал по аналогии как там) и метода тыка.
Первая ошибка у меня была: при создании владельцем указывал форму а родителем вкладку, из-за этого и была ошибка в ntdll.
Вторая ошибка: вызывал Free сам в деструкторе, но тут меня удивило, везде пишут что Free проверяет объект или он не nil, не ожидал что ошибку вызовет, даже если не нужно оно там. Кстати они и не были nil, я проверил, значит ошибка была из-за повторного вызова Free.

Еще небольшой вопрос про это: Timer := TTimer.Create(nil); не встречал раньше такого.
Я туда того же владельца передавал, что и пэйнтбоксу, работает. Есть ли какая существенная разница, или можно и так и так?

[alexBlack]

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

Еще небольшой вопрос про это: Timer := TTimer.Create(nil); не встречал раньше такого.
Я туда того же владельца передавал, что и пэйнтбоксу, работает. Есть ли какая существенная разница, или можно и так и так?

Разницы в-общем-то нет.
Просто объект внутри класса. Указываем, что у него нет владельца и сами потом освобождаем.

Второй вариант - указываем владельца TTimer.Create(aOwner) и освождать будет владелец.

Просто мне видится более корректным если объект инкапсулирован в классе, то и управлять им должен этот класс, не зачем передавать его другому владельцу. С TPaintBox так не получается, т.к. он будет отображаться, поэтому владельцем указываем панель.