метод free не вызывает destroy

← →
redlord (2004-09-09 00:23) [0]

всем привет
почему не отробатывает процедура destroy
при вызове метода free для экземпляра данного класса

procedure TForm1.Button1Click(Sender: TObject);
begin
scan:=tscan.Create(form1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
scan.Free;
end;
--------------------------------------------------------------
type
Tscan = class(tobject)
timer:ttimer;
constructor create(aowner:Tcomponent);
destructor destroy(aowner:Tcomponent);
...
...
...
destructor tscan.destroy;//(aowner:tcomponent);
begin
showmessage("меня убили");
end;

← →
jack128 © (2004-09-09 00:28) [1]

redlord (09.09.04 0:23)
destructor destroy(aowner:Tcomponent);
...
...
...
destructor tscan.destroy;//(aowner:tcomponent);

Деструктор должен быть без параметров. И не забудь override поставить..

← →
redlord (2004-09-09 00:35) [2]

ок спасибо

метод free не вызывает destroy Найти похожие ветки