Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
14-1099241658
VEG
2004-10-31 19:54
2004.11.21
Никто не ставил винт 160-200Гб на старые мат.платы (2000 год)?


8-1092890702
MOZZZ
2004-08-19 08:45
2004.11.21
Фоновая музыка


14-1099854463
Ospa
2004-11-07 22:07
2004.11.21
Инсталятор????


1-1100114054
redlord
2004-11-10 22:14
2004.11.21
иконки в файл без потери качества


14-1099743026
BoS | Snake
2004-11-06 15:10
2004.11.21
Народ , неед хелп , кто в Lisp шарит...