Published TStringList-Property lädt Daten zur Designtime nicht

[freejay]

Hallo zusammen,

ich habe schon lange eine um viele Funktionen erweiterte von TAdvStringGrid abgeleitete Komponente.

Nun habe ich eine TStringList-Property hinzugefügt, mit der man zur Entwurfszeit bereits Daten in das Grid füllen können soll.

Das funktioniert auch eigentlich, aber wenn ich das Projekt neu öffne werden die Daten, die korrekt in der dfm-Datei gespeichert werden, nicht wieder in das Grid übertragen.

Hier die nötige Codeabschnitte:

Delphi-Quellcode:

type
  TMyAdvStringGrid = class(TAdvStringGrid)
  private
    FDefaultData: TStringList;
    procedure SetDefaultData(const Value: TStringList);
  published
    property DefaultData: TStringList read FDefaultData write SetDefaultData;
  end;

procedure TMyAdvStringGrid.SetDefaultData(const Value: TStringList);
begin
  FDefaultData.Assign(Value);

  if FDefaultData.Text <> '' then
    StringToGrid(FDefaultData.Text); // füllt die Daten in das Grid
end;

(Natürlich wird FDefaultData auch im Constructor erzeugt und später wieder freigegeben)

Die Daten werden beim Öffnen des Projekts zwar korrekt von der dfm-Datei in FDefaultData eingelesen, es wird dabei aber offenbar nicht der entsprechende Setter (SetDefaultData) benutzt...

Kann mir hier jemand weiterhelfen?

Vielen Dank im Voraus!