Главная страница
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.034 c
4-42250
PITON
2003-09-12 11:18
2003.11.13
работа с формой


1-41222
SkyRanger
2003-10-31 16:21
2003.11.13
Небольшой вопрос про наследование


6-41854
famous
2003-09-10 03:33
2003.11.13
поиск в web документе


1-41447
Bovdur
2003-10-29 02:14
2003.11.13
файлs


3-40933
stud
2003-10-17 11:39
2003.11.13
события в файрберд