Wie erstelle ich einen Ordner (Verzeichnis) Eigenschaftseditor für meine Komponente?
-
13-10-2019 - |
Frage
Delphi 2010
Wie erstelle ich einen Ordner (Verzeichnis) Eigenschaftseditor für meine Komponente?
Ich konnte einfach eine für eine Dateiname -Eigenschaft erstellen, indem ich:
TFileProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes; override;
procedure Edit; override;
end;
RegisterPropertyEditor(TypeInfo(TFileName),nil, '', TFileProperty);
Ich denke
Vielen Dank für jede Hilfe, die Sie anbieten können
Lösung
Ich glaube, ich habe etwas zum Laufen, es sei denn, jemand anderes kann etwas Besseres finden
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;
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow