Как создать редактор свойств папки (каталог) для моего компонента?

Question

Delphi 2010

Как создать редактор свойств папки (каталог) для моего компонента?

Я смог легко создать один для свойства имени файла, используя:

TFileProperty = class(TStringProperty)  
public  
  function GetAttributes: TPropertyAttributes; override;  
  procedure Edit; override;  
end;  

RegisterPropertyEditor(TypeInfo(TFileName),nil, '', TFileProperty);  

Я думаю, что это может потребоваться больше работы, так как я думаю, что мне нужно создать класс, чтобы зарегистрироваться, и каким -то образом позвонить в подпрограмму Seldir API или что -то в этом роде

Спасибо за любую помощь, которую вы можете предложить

Answer 1

Я думаю, что у меня есть что -то для работы, если кто -то другой не сможет придумать что -то лучшее

type  
  TFolderName = String;  

  TFolderNameProperty = class(TStringProperty)  
  public  
    function GetAttributes: TPropertyAttributes; override;  
    procedure Edit; override;  
  end;  

function TFolderNameProperty.GetAttributes: TPropertyAttributes;  
begin  
  Result := [paDialog]  
end {GetAttributes}; 

procedure TFolderNameProperty.Edit;  
var  
  Dir: String;  
begin  
  SelectDirectory('Select a directory', '', Dir)  
  SetValue(Dir);  
end {Edit};  

procedure Register;  
begin  
  RegisterPropertyEditor(TypeInfo(TFolderName),nil, '', TFolderNameProperty)  
end;