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

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

ilusha sh

Сообщения: n/a

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

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;

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

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

Отправлено: 15:46, 11-08-2003

Prisoner

Engrossed by the Void

Сообщения: 2229
Благодарности: 60

Профиль | Отправить PM | Цитировать

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

-------
Не могу дать более дельный совет - не хватает системных ресурсов...

Отправлено: 17:18, 11-08-2003 | #2