Хитрость вызова редактора свойств

Я пишу редактор для свойства TStrings. В зависимости от значений других свойств, я хотел бы показывать или свой редактор свойства, или редактор свойства TStringListProperty, заданный по умолчанию, но я не знаю как передавать управление TStringListProperty...

Сделайте ваш редактор свойства наследником TStringListProperty (добавьте STREDIT в список используемых модулей) и согласно вашим обстоятельствам вызывайте метод предка Edit:

Unit MyEditor;
interface
uses STREDIT;
type TMyStringListProperty = class(TStringListProperty) procedure Edit; override;

end;
implementation
procedure TMyStringListProperty.Edit; begin if { какие-то условия } then { что-то делаем } else inherited Edit; end; end.

- Pat Ritchey [001040]

Содержание раздела