PDA

Показать полную графическую версию : Компоненты в Delphi


ilusha sh
11-08-2003, 15:46
Не удаётся корректно выгрузить
динамически созданный компонент -
после выгрузки 'съедается' немного памяти. *Код такой:

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[i]);
* *Img.DestroyComponents;
*End;

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


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

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




© OSzone.net 2001-2012