| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Destructor

snake1977 ©   (2004-11-07 14:23:00) 

Здравствуйте!!
подскажите, я создал наследника от 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:00) [1]

Вообще говоря деструктор Destroy называется... а free это просто метод класса...

---

Anton_K   (2004-11-07 14:26:00) [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;

---

Наверх