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