Введите условия поиска Отправить форму поиска
	Web www.delphisources.ru

Автор: Pat Ritchey

Я пишу редактор для свойства 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.