Внешний вид сайта:

Как добавить Published свойства в форму

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

Комментарии

Нет комментариев. Ваш будет первым!