Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Event для TCollectionItem [D7]

Олег Лаукарт © (2003-01-20 15:22:00)
Создаю компонент, одним из свойств которого есть коллекция. Соответственно описан класс для елемента коллекции (TCItem). У TCItem усть публичное свойство-метод
procedure OnItemEvent:TItemEvent read .. write ..;
Если в Object Inspector, если выбрать редактор елементов коллекции, и для конктретного елемента сделать двойной щелчок на его свойстве, чтобы автоматом сгенерировать и привязать к елементу событие - получаю "Cannot create a method for an unnamed component". Если описать обработчик события то привязать его в инспекторе все-равно не получается - его просто там не видно. Приходится в OnCreate формы програмно привязывать обработчик к елементу - неудобно и жутко некрасиво.
Как добиться желаемого результата?

vuk (2003-01-20 19:36:00) [1]
Вообще обычно используется немного другой подход. Создаются специальные компоненты, которые создают экземпляр определенного класса (что-то подобное фабрикам класса) и делаются ссылки не на класс, а на компонент такого типа. Таким образом убирается зависимость от того, зарегистрированы все нужные классы или нет.

Олег Лаукарт (2003-01-20 19:32:00) [2]
Большое спасибо за помощь.

Юрий Зотов (2003-01-20 19:28:00) [3]
Можно сделать, как обычное стринговое свойство с выпадающим списком. Редактор свойства нужно будет написать, чтобы не дать возможности ввести неверное имя класса. Это будет наследник TStringProperty с переписанными GetAttributes и GetValues. Проверку строки можно делать в самом методе Set для свойства:
if not (GetClass(Value) is TSomeClass) then raise ...

Конструктор TSomeClass должен быть виртуальным, а все классы его семейства - зарегистрированы в где-то в initialization (см. RegisterClasses). Тогда создание в run-time:
TSomeClass(GetClass(PropValue)).Create(...)

Олег Лаукарт (2003-01-20 18:45:00) [4]
Есть ли возможность использовать Object Inspector в случае, когда свойство компонента имеет тип клас:
type TMyClass = class of TSomeClass;

Задача - компоненту надо привязать класс, чтобы создавать объектыданного класса в рантайме.

Олег Лаукарт (2003-01-20 18:38:00) [5]
Большое спасибо. Попробовал наследовать TOwnedCollection - все работает как надо.
с procedure конечно опечатался :), бывает.

Юрий Зотов (2003-01-20 15:46:00) [6]
Наследуйте коллекцию от TOwnedCollection, либо перекройте в ней метод GetOwner, а в нем возвращайте ссылку на компонент-владелец.

procedure OnItemEvent:TItemEvent read .. write ..;
Надеюсь, это опечатка. Должно быть property .

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »