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.