コンポーネントのフォルダー(ディレクトリ)プロパティエディターを作成する方法は?
-
13-10-2019 - |
質問
Delphi 2010
コンポーネントのフォルダー(ディレクトリ)プロパティエディターを作成する方法は?
以下を使用して、ファイル名プロパティ用に簡単に作成できました。
TFileProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes; override;
procedure Edit; override;
end;
RegisterPropertyEditor(TypeInfo(TFileName),nil, '', TFileProperty);
登録するためにクラスを作成し、どういうわけかSeldir APIルーチンか何かに電話する必要があると思うので、それは少し多くの作業が必要だと思います。
あなたが提供するかもしれない助けをありがとう
解決
他の誰かがもっと良いものを思い付くことができない限り、私は何か仕事をしたと思います
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;
所属していません StackOverflow