Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

О констукорах и деструкторах компанент   Найти похожие ветки 

 
Pattern ©   (2003-11-02 15:04) [0]

Вопрос чисто теоретического характера. Допустим я создаю какую то свою составную компаненту на основе TPanel. На ней создаётся ещё ряд других компанент TImage, штук 10 TLabel и т.п.
constructor TMyPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
MyImage := TImage.Create(Self);
MyImage.Parent := Self;
MyLabel1 := TLabel.Create(Self);
MyLabel1.Parent := Self;
MyLabel2 := TLabel2.Create(Self);
MyLabel2.Parent := Self;
..

Теперь эта готовая компанента будет создаваться на форме динамически ввиде массива таких компанент. Естественно, общее количество компанент на форме будет значительно расти с появлением каждой следующей компаненты. Так вот в чём вопрос. При уничтожении формы, вместе с ней уничтожаются и все компаненты, которые находятся на ней. Нужно ли прописывать деструктор для компаненты, или этот момент можно опустить? И в то же время как прописывать данный деструктор? Просто уничтожить компаненту, или сначала освободиться от принадлежащих ей TLabel"ов и TImage?


 
Anatoly Podgoretsky ©   (2003-11-02 15:08) [1]

Если принадлежит, то удалит


 
Calm ©   (2003-11-02 15:08) [2]

Просто уничтожить.


 
Юрий Федоров ©   (2003-11-02 15:11) [3]

Если параметром конструктора передается self, то разрушение TLabel"ов и TImage произойдет автоматически при разрушении самого компонента. Но не будет ошиибкой и разрушить их в деструкторе. Второй вариаант на мой взгляд предпостиительней с точки зрения стиля программирования


 
Pattern ©   (2003-11-02 15:12) [4]

Большое спасибо всем за советы!



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-41591
Alfred
2003-10-27 10:59
2003.11.13
Работа с прерываниями


3-40829
MagMag
2003-10-25 15:02
2003.11.13
Проверка регистрации пользователя


6-41846
TOL-12
2003-09-12 14:08
2003.11.13
Мой чат


1-41631
ARTEMKA
2003-10-25 21:10
2003.11.13
Как ускорить перерисовку


3-40976
kostik78ua
2003-10-16 18:12
2003.11.13
rownum