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

[xaromz]

Hallo,

ich habe in einer Komponente eine Eigenschaft vom Typ String (bzw. vom Typ TXYString = type String). Ich möchte nun analog zur Eigenschaft TFontName eine Dropdown-Auswahl im Objektionspektor realisieren, wo ich vorgegebene Werte auswählen kann. Ich vermute, ich muss da einen Propertyeditor schreiben. Kann mir jemand einen Tipp geben?

Gruß
xaromz

[SirThornberry]

so wie ich es der Hilfe entnommen habe musst du GetValues und GetAttributes deines PropertyEditors überschreiben.

[Hawkeye219]

Hallo xaromz,

vielleicht findest du in diesem Beitrag von Stevie einen Einstieg.

Gruß Hawkeye

[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;

[xaromz]

Hallo,

danke, genau was ich gesucht habe.

Gruß
xaromz