Propertyeditor für "Path"

[Stevie]

Folgende Unit in ein Designtime Package und du hast für die InitialDir property des TOpenDialog einen Ordnerauswahldialog.

Delphi-Quellcode:

unit PropertyPathEditor;

interface

uses
  DesignEditors,
  DesignIntf;

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

procedure Register;

implementation

uses
  Dialogs,
  FileCtrl;

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(string), TOpenDialog, 'InitialDir', TPathProperty);
end;

{ TPathProperty }

procedure TPathProperty.Edit;
var
  LPath: string;
begin
  LPath := GetValue();
  if SelectDirectory('', '', LPath, [sdNewFolder, sdNewUI, sdValidateDir]) then
  begin
    SetValue(LPath);
  end;
end;

function TPathProperty.GetAttributes: TPropertyAttributes;
begin
  Result := inherited GetAttributes + [paDialog];
end;

end.