Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

свойство типа TCollection 


Алена   (2002-03-20 10:05) [0]

Пожалуйста подскажите как в собственную компоненту добавить свойство типа TCollection и чтобы элементы коллекции были другими компонентами на форме (TControl и выше). По сути надо просто реализовать список компонент и возможность добаления их на форму из этого списка, но только с помощью введения свойста - коллекции. Заранее огромное спасибо.



MBo   (2002-03-20 10:08) [1]

http://delphi.vitpc.com/helloworld/tcollection.htm



Алена   (2002-03-20 15:18) [2]

Спасибо, я все поняла, только с объектами одного класса все в порядке, а вот как сделать чтобы внутри коллекции были обычные визуальные делфийские компоненты, т.е. наследники TControl,
можно ли как-то приводить TControl к ним, но где это надо делать - в реализации методов коллекции или уже при реализации самой программы, испрользуя все-таки элементы коллекции как объекты NControl?



yaJohn   (2002-03-20 16:01) [3]

Напрамую - нельзя.
Посмотри еще TOwnedCollection, как свойство компонента надo использовать ее.
Можно создать коллекцию обьектов имеющих единственное паблик свойство типа TControl. Думаю это оптимальный подход.



Юрий Зотов   (2002-03-20 16:09) [4]

Введите в элемент коллекции приватное поле FControl и published-свойство Control - ссылку на TControl.

Еще нужно будет добавить механизм уведомлений об удалении. Для этого в элемент коллекции введите метод доступа SetControl, примерно такой:

procedure ...SetControl(const Value: TControl);
begin
if Value <> FControl then
with TComponent(Collection.Owner) do
begin
if FControl <> nil then RemoveFreeNotification(FControl);
FControl := Value;
if FControl <> nil then FreeNotification(FControl);
end
end;

И, наконец, в компоненте заместите метод Notification. В него надо добавить очистку полей FControl в элементах при удалении контролов.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
3-15              vasilly               2002-03-06 08:48  2002.04.01  
Как правильно получить результат выполнения хранимой процедуры с выходными параметрами!!!


14-286            AriokH                2002-02-17 22:00  2002.04.01  
Просто вопрос


4-340             mishaa                2002-01-31 01:20  2002.04.01  
win api


1-83              ЛенаК                 2002-03-21 07:58  2002.04.01  
Как определить, на каком компоненте формы находится фокус?


1-85              vladimir_12           2002-03-19 09:11  2002.04.01  
Печать в текстовом режиме