TStringlist als Property - Werte nicht in Laufzeit übernomme

[Alexander Roth]

Zitat von jim_raynor:

Zitat von Alexander Roth:

Hi,

also ich erstelle gerade ein Komponte und sie bekommt zusätzliche Properys und davon auch 3 Stück mit dem Typ TStringlist.
Alles super, doch wenn ich im Objekt-Inspektor die Stringlisten verändere, haben diese, nachdem ich das Projekt kompiliert habe, wieder den Standart-Inhalt.

Mit anderen propertys (integer) klappt es super.

Sind deine TStringList Propertys auch schreibbar (also mit write?). Wenn ja, dann werden diese nicht mit gespeichert. Die StringListen dürfen nur lesbar sein.

Da sagt auch jeder was anderes.

Das hatte ich ja vorher. Und da war das oben genannte Problem mit dem übernehmen der Daten doch dafür war kein Fehler.

Gruß Alexander



EDIT: Man sieht dass die Stringlisten leer sind, indem man das Create so gestaltet:

Delphi-Quellcode:

constructor TExpandPanels.create(AOwner: TComponent);
begin
  inherited create(AOwner);

  FCaptions:=TStringList.Create;
  FExpandList:=TStringList.Create;
  FHeightList:=TStringList.Create;
  FColors:=TJvRollOutColors.Create;
  PanelArray:=TClassArray.create(false);

  Self.Height:=300;
  Self.Width:=150;
  FColors.ButtonColor:=clBlue;
  FColors.HotTrackText:=clRed;

  showmessage(IntToStr( ExpandList.Count));
  showmessage(IntToStr( HeightList.Count));
  showmessage(IntToStr( Captions.Count));
  CountPanels:=3;   // hier werden die Panels erstellt und die Listen mit standartwerten gefüllt
end;