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
динамически созданный компонент -
после выгрузки 'съедается' немного памяти. *Код такой:
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