Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
ВнизEvent для TCollectionItem Найти похожие ветки
← →
Олег Лаукарт (2003-01-20 15:22) [0]Создаю компонент, одним из свойств которого есть коллекция. Соответственно описан класс для елемента коллекции (TCItem). У TCItem усть публичное свойство-метод
procedure OnItemEvent:TItemEvent read .. write ..;
Если в Object Inspector, если выбрать редактор елементов коллекции, и для конктретного елемента сделать двойной щелчок на его свойстве, чтобы автоматом сгенерировать и привязать к елементу событие - получаю "Cannot create a method for an unnamed component". Если описать обработчик события то привязать его в инспекторе все-равно не получается - его просто там не видно. Приходится в OnCreate формы програмно привязывать обработчик к елементу - неудобно и жутко некрасиво.
Как добиться желаемого результата?
← →
Юрий Зотов (2003-01-20 15:46) [1]Наследуйте коллекцию от TOwnedCollection, либо перекройте в ней метод GetOwner, а в нем возвращайте ссылку на компонент-владелец.
procedure OnItemEvent:TItemEvent read .. write ..;
Надеюсь, это опечатка. Должно быть property .
← →
Олег Лаукарт (2003-01-20 18:38) [2]Большое спасибо. Попробовал наследовать TOwnedCollection - все работает как надо.
с procedure конечно опечатался :), бывает.
← →
Олег Лаукарт (2003-01-20 18:45) [3]Есть ли возможность использовать Object Inspector в случае, когда свойство компонента имеет тип клас:
type TMyClass = class of TSomeClass;
Задача - компоненту надо привязать класс, чтобы создавать объектыданного класса в рантайме.
← →
Юрий Зотов (2003-01-20 19:28) [4]Можно сделать, как обычное стринговое свойство с выпадающим списком. Редактор свойства нужно будет написать, чтобы не дать возможности ввести неверное имя класса. Это будет наследник TStringProperty с переписанными GetAttributes и GetValues. Проверку строки можно делать в самом методе Set для свойства:
if not (GetClass(Value) is TSomeClass) then raise ...
Конструктор TSomeClass должен быть виртуальным, а все классы его семейства - зарегистрированы в где-то в initialization (см. RegisterClasses). Тогда создание в run-time:
TSomeClass(GetClass(PropValue)).Create(...)
← →
Олег Лаукарт (2003-01-20 19:32) [5]Большое спасибо за помощь.
← →
vuk (2003-01-20 19:36) [6]Вообще обычно используется немного другой подход. Создаются специальные компоненты, которые создают экземпляр определенного класса (что-то подобное фабрикам класса) и делаются ссылки не на класс, а на компонент такого типа. Таким образом убирается зависимость от того, зарегистрированы все нужные классы или нет.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c