Как добавить 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. Компилировать и установить новый пакет. Теперь мы увидим новое свойство в Инспекторе Объектов.
Комментарии