|
Автор: 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.
|
|
Редактор свойства TStringListProperty