Как добавить Published свойства в форму
1. Определить свойство как Published с типом, который Инспектор Объектов может обрабатывать. Инспектор Объектов не может обрабатывать типы Interface:
TMyForm = class(TForm) Published Property MyProp: Integer; End;
2. Добавить процедуру регистрации в некоторый модуль (рекомендуется использовать другой модуль, который будет добавлен в пакет только во время разработки):
// для TForm:
Procedure Register;
Begin
RegisterNoIcon([TMyForm]);
RegisterCustomModule(TMyForm ,
TCustomModule);
End;
// для TDataModule:
Procedure Register;
Begin
RegisterNoIcon([TMyForm]);
RegisterCustomModule(TMyForm ,
TDataModuleDesignerCustomModule);
End;
Класс TDataModuleDesignerCustomModule находится в модуле DMDesigner, для которого нет исходника. Модуль находится в dsnide50.bpl.
Чтобы использовать этот модуль, мы должны включить пакет dsnide50.bpl в секцию Requires. Поскольку этот пакет используется только в Delphi IDE, рекомендуется добавить его только в design-time пакете.
3. Компилировать и установить новый пакет. Теперь мы увидим новое свойство в Инспекторе Объектов.
Комментарии