Delphi - Компоненты в Delphi

[Prisoner]

Не удаётся корректно выгрузить

динамически созданный компонент -

после выгрузки 'съедается' немного памяти. *Код такой:



Procedure TMainFm.CreateImage;

*Begin

* *Img:=TImage.Create(self);

* *Img.Parent:=PanelA;

* *Img.OnClick :=ImageClick;

* *Img.OnMouseMove:=ImageMMove;

* *Img.Name:='nm';

*End;



Procedure TMainFm.FreeImage;

*Begin ...

* *self.RemoveComponent(Image);

* *Img.DestroyComponents;

*End;



Подскажите, где баг.





[s]Исправлено: ilusha sh, 16:49 11-08-2003[/s]

[Prisoner]

Вроде как DestroyComponents убивает все дочерние компоненты, но не самого родителя... а в помощи сказано, что этот метод вызывается автоматом когда дестроится родитель. Так что IMHO лучше воспользоваться методом Free вместо двух строк в процедурке FreeImage.