Как создать редактор свойств папки (каталог) для моего компонента?
-
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