コンポーネントのフォルダ（ディレクトリ）プロパティエディタを作成するにはどうすればいいですか？

Question

Delphi 2010

コンポーネントのフォルダ（ディレクトリ）プロパティエディタを作成するにはどうすればよいですか？

私は簡単に使用してFileNameプロパティのための1つを作成することができました。私はそれは私が登録するクラスを作成する必要があると思うと、alittleがより多くの仕事を取り、何とかselDir APIを呼び出すかもしれないと思う

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

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

を他の誰かが何か良いを考え出すことができない限り、任意のヘルプルーチンまたは何か

おかげで、あなたは、私が動作するように何かを得たと思う

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;