TStringList als published property

[Meflin]

Aloha!

Ich habe schon die DP suche bemüht, aber irgendwie nichts passendes gefunden

Die Problematik ist Folgende: ich bastel mir gerade eine Komponente. Diese Komponente gibt Strings aus, bis jetzt tut sie dass über einen Pointer auf eine TStringList den der User eben festlegen muss. Dann schreibt die Komponente die Werte direkt in diese vom User erzeugte und bestimmte StringList.

Nun möchte ich aber, dass der User zur Designzeit im PropertyEditorObjektinspektor diese StringList festlegen kann, in der Form dass alle auf der Form (oder bessergesagt in der Unit) vorhandenen TSTringLists in einer Dropdownliste angezeigt werden und nur eine ausgewählt werden muss.

Nur wie mache ich das? Mit einer TStringList als Property bekommt man im Property EditorObjektinspektor nur die '...' Anzeige. Das ist aber nicht wirklich, was ich will

[Robert Marquardt]

Dazu muss man einen geeigneten Property-Editor schreiben.
Dazu wuerde ich mal in die VCL Sourcen schauen (alternativ die JVCL). Dort gibt es Property-Editoren die auf andere Komponenten reagieren.
Letztlich musst du alle vorhandenen anderen Komponenten abklappern und per RTTI nach den published Properties befragen (nur die sind im RTTI).
Dort kannst du dann TStrings und Abkoemmlinge aussortieren. Das ist insgesamt ein sehr anspruchsvoller Property-Editor.

[Meflin]

OK ... da ist es dann wohl doch einfacher die TStringList von der Komponente her zur Verfügung zu stellen

[Khabarakh]

@Meflin: Kann es sein, dass du OI und Property-Editoren verwechselst ?

[Meflin]

Zitat von Khabarakh:

@Meflin: Kann es sein, dass du OI und Property-Editoren verwechselst ?

Jepp. Ich mein den Objekt Inspektor

[Khabarakh]

Gut, jetzt ist mir das ganze etwas klarer .

Im OI kann man AFAIK nur andere Komponenten zuweisen. Wenn du die Stringlist im OI über die Dropdownliste einstellen willst, müsstest du daher eine eigene Stringlist-Komponente schreiben und diese auf dem Formular plazieren. Also in etwa wie TSynEdit und die verschiedenen Highlighter (wer die Komponenten nicht kennt: Für das TSynEdit gibt es verschiedene Highlighter als Designtime-Komponenten. Diesen kann im OI z.B. verschiedene Farben für Schlüsselwörter zugewiesen werden, beim SynEdit wählt man dann den Highlighter in der Dropdownliste aus).

[Meflin]

OK, so geht das ganze. Also habe ich nun eine Komponente mit nichts als einer TStringList drin. Jetzt sollte es doch irgendwie möglich sein über default-zeugs dass man nicht TMeineKompo.StringList.Add schrieben muss sondern TMeineKompo.Add schreiben kann... nur wie (für die mini-frage mach ich jetzt kein neues Thema auf )

[Khabarakh]

Zitat von Meflin:

OK, so geht das ganze. Also habe ich nun eine Komponente mit nichts als einer TStringList drin. Jetzt sollte es doch irgendwie möglich sein über default-zeugs dass man nicht TMeineKompo.StringList.Add schrieben muss sondern TMeineKompo.Add schreiben kann... nur wie (für die mini-frage mach ich jetzt kein neues Thema auf )

Default gibt es, soviel ich weiß, nur für Arrays. Du könntest also höchstens eine "halbe" Lösung machen:

Delphi-Quellcode:

TMyStringListComponent = class(TComponent)
  private
    FStringList: TStringList;
    function GetStrings(AIndex: Integer): string;
    procedure SetStrings(AIndex: Integer; const AValue: string);
  public
    property StringList: TStringList read FStringList;
    property Strings[AIndex: Integer]: string read GetStrings write SetStrings; default;
  end;

implementation

{$R *.dfm}

{ TMyStringListComponent }

function TMyStringListComponent.GetStrings(AIndex: Integer): string;
begin
  Result := StringList[AIndex];
end;

procedure TMyStringListComponent.SetStrings(AIndex: Integer;
  const AValue: string);
begin
  StringList[AIndex] := AValue;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Comp: TMyStringListComponent;
begin
  Comp := TMyStringListComponent.Create(Self);

  Comp.StringList.Add('blubb');
  Comp[0] := '*' + Comp[0] + '*' + Comp[0];
  // = Comp.StringList[0] := '*' + Comp.StringList[0] + '*' + Comp.StringList[0];
  // = Comp.StringList.Strings[0] := '*' + Comp.StringList.Strings[0] + '*' + Comp.StringList.Strings[0];

  Comp.Free;
end;

(Da fehlen natürlich noch Konstruktor und Destruktor)

Für alle Methoden von TStringList musst also immer noch explizit die Property angeben (es sei denn, du erstellst alle Methoden auch für deine Komponente ).

[BlackJack]

default geht nur bei array-propertys. und wie soll delphi wissen, dass du mit TMeineKompo.Add eigentlich TMeineKompo.StringList.Add meinst? da wirst du selber eine TMeineKompo.Add-procedure schreiben müssen.

[Robert Marquardt]

Der OI stellt mit Hilfe von Property-Editoren dar. Man kann z. B. eine Custom-Farbauswahl einbinden wenn man Lust hat. Die JVCL tut das ja.
Die Auswahl einer Methode fuer einen Event ist ziemlich genau das was hier implementiert werden soll.