Property strings funktioniert nicht

[idefix2]

Hallo,

ich versuche, einer Edit-Komponente eine Stringliste als zusätzliche Property zu verpassen, und das will mir nicht gelingen.
Es erscheint zwar der Stringlisteneditor als Property Editor im Objectinspector, aber die Strings, die ich eingebe, bleiben nicht gespeichert. Nach mehreren Versuchen, die Strings eizugeben, erscheint die Fehlermeldung:

Code:

---------------------------
Fehler
---------------------------
TActionBars kann nicht zu TRichEditStrings zugewiesen werden.
---------------------------
OK   Details >>   
---------------------------

Hier die Komponente, auf das absolute Minimum reduziert:

Delphi-Quellcode:

unit TestEdit;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;

type
  TTestEdit = class(TEdit)
  private
    x: TStrings;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Teststrings: TStrings read x write x;
  end;

procedure Register;

implementation

constructor TTestEdit.Create(AOwner: TComponent);
begin
  inherited;
  x:= TStringList.create;
end;

destructor TTestEdit.Destroy;
begin
  x.Free;
  inherited;
end;

procedure Register;
begin
  RegisterComponents('Test', [TTestEdit]);
end;

end.

Was ist da falsch?
TStrings generell durch TStringlist zu ersetzen ändert übrigens nichts am Problem.

[DeddyH]

Du lässt ja munter Deine selbst erzeugte Instanz überschreiben. Wie ist es so?

Delphi-Quellcode:

property Teststrings: TStrings read x write SetX;

...

procedure TTestEdit.SetX(const Value: TStrings);
begin
  x.Assign(Value);
end;

[idefix2]

Ja, natürlich, so geht es. Danke.

Ich hatte im Hinterkopf, dass bei Listboxen und dergleichen Komponenten eine Zuweisung an die Items Property automatisch in ein assign aufgelöst wird - aber genau das muss man natürlich bei eigenen TStrings via Setter selber machen...