[ildvild]

Подскажите как можно убрать все Custom Property. Например процедура RegisterCustomProperty регистрирует новое свойство а мне нужно убрать некоторые, т.е чтобы не отображалось в oBject inspectore

[dr. F.I.N.]

так пробовали?

[ildvild]

Сообщение от dr. F.I.N.

так пробовали?

не нашел там то что мне нужно. мне главное чтобы они не отображались в инспекторе, а уж сами свойства могут и остаться.

[dr. F.I.N.]

Код:

type
  TMyEdit = class (TEdit)
  public
    property Color;
  end;

Свойство будет доступно точно также, но уже не будет отображено в инспекторе объектов. Читайте внимательнее первые 4 ссылки по запросу в яндексе.

[NumLock]

Код:

procedure UnlistPublishedProperty(ComponentClass: TClass;
  const PropName: String);
var
  APropInfo: PPropInfo;
begin
  APropInfo:=GetPropInfo(ComponentClass, PropName);
  RegisterPropertyEditor(APropInfo^.PropType^, ComponentClass, PropName, nil);
end;

использование:

Код:

procedure Register;
begin
  UnlistPublishedProperty(TLabel, 'Width');
end;