Текущий архив: 2004.11.21;
Скачать: CL | DM;
Вниз
Destructor Найти похожие ветки
← →
snake1977 (2004-11-07 14:23) [0]Здравствуйте!!
подскажите, я создал наследника от TComboBox переопределил ему Destructor Free;
но при вызове деструктора компонента, он не вызывается
TMyEdit=class(TComboBox)
public
ParamFileName:String;
Param:CtrlParamRec;
Title:TLabel;
AllHeight:Integer;
constructor Create(AOwner:TComponent);
Destructor Free; virtual;
end;
в прорамме
Var c:TMyEdit;
i:Integer;
Begin
c:=TMyEdit.Create(Panel1);
c.Parent:=Panel1;
.....
for i:=0 to Panel1.ControlsCount-1 do
Panel1.Controls[0].Free;
End;
как заставить вызываться мой деструктор класса??
← →
Palladin © (2004-11-07 14:26) [1]Вообще говоря деструктор Destroy называется... а free это просто метод класса...
← →
Anton_K © (2004-11-07 14:26) [2]TMyEdit=class(TComboBox)
public
...
Destructor Destroy; override;
end;
Begin
c:=TMyEdit.Create(Panel1);
c.Parent:=Panel1;
.....
for i:=0 to Panel1.ControlsCount-1 do
Panel1.Controls[0].Free;
inherited;
End;
Страницы: 1 вся ветка
Текущий архив: 2004.11.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.033 c
