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

Вниз

Как правильно вызвать RegisterPropertyEditor ?   Найти похожие ветки 

 
Juice ©   (2005-08-04 13:50) [0]

Вот такой код:

TSrcTableItem = class (TCollectionItem)
 private
   FSrcTable : TComponent;
 published
   property SourceTable: TComponent read FSrcTable write FSrcTable;
 end;

 TAutoPump = class(TComponent)
 private
   FSrcTablesOrder : TOwnedCollection;
 ...
 published
   property SrcTablesOrder : TOwnedCollection read FSrcTablesOrder write FSrcTablesOrder;
 end;

 ...

constructor TAutoPump.Create(AOwner : TComponent);
begin
 inherited Create(AOwner);
 FSrcTablesOrder := TOwnedCollection.Create(Self, TSrcTableItem);
...


Все типа как ОК, коллекция добавлена в комопонент, однако я хочу чтобы в нее могли в Design-time попасть не все компоненты ,а только определенного класса. Для этоо написал property editor :

TSrcTablesProperty = class(TComponentProperty)
 public
   procedure Edit; override;
 end;

Не получается его зарегистрировать, точнее регистрация проходит без ошибок но мой editor не выполняется.
Сначала сделал так:
RegisterPropertyEditor(TypeInfo(TComponent), TAutoPump, "SrcTablesOrder",
                        TSrcTablesProperty);
Потом попробовал так:
RegisterPropertyEditor(TypeInfo(TComponent), TAutoPump, "",
                        TSrcTablesProperty);
И только когда зарегистрировал так все заработало:
RegisterPropertyEditor(TypeInfo(TComponent), nil, "",
                        TSrcTablesProperty);
Но конечно такое счастье никому не надо. Что указывать во втором и третьем параметре ?


 
juice ©   (2005-08-04 15:34) [1]

Ответ найден, спасибо Юрию Зотову :)



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

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

Наверх




Память: 0.47 MB
Время: 0.043 c
2-1136224653
Revan
2006-01-02 20:57
2006.01.22
Программа ТЕСТ


2-1136371371
psa247
2006-01-04 13:42
2006.01.22
ListView !


2-1136440995
ezorcist
2006-01-05 09:03
2006.01.22
Эмулировать клик мыши?


3-1132736589
__DATA__
2005-11-23 12:03
2006.01.22
Как избавиться от DeadLock-a в FireBird 1.5


11-1116922509
DmiSb
2005-05-24 12:15
2006.01.22
Пустое значение в TKOLDateTimePicker