Dropdown-Liste im IO für "type String"

[SirThornberry]

Delphi-Quellcode:

type
  TPSMyStringsEditor = class(TStringProperty)
  public
    function GetAttributes(): TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
  end;

procedure Register();

implementation

procedure Register();
begin
  RegisterPropertyEditor(TypeInfo(TMyStrings), nil, '', TPSMyStringsEditor);
end;

function TPSMyStringsEditor.GetAttributes(): TPropertyAttributes;
begin
  result := [paValueList];
end;

procedure TPSMyStringsEditor.GetValues(Proc: TGetStrProc);
begin
  if Assigned(Proc) then
  begin
    Proc('Eintrag1');
    Proc('Eintrag2');
    Proc('Eintrag3');
    Proc('Eintrag4');
  end;
end;