Erkennen, wann alle Propertys geladen sind

[gemeni2005]

Hallo,

ich habe eine Komponente, die als published Property auf einen TComponent-Nachfahren verweist, der im Datenmodul liegt.

Das Property wird korrekt beim Fixup geladen. Nun muss ich aber an einer bestimmten Stelle erkennen, ob der Fixup bereits abgeschlossen ist. Da das Property optional ist, kann ich nicht einfach auf nil abfragen.

Gemäß Dokumentation wird in ComponentState dafür das Flag csFixups gesetzt, wenn Propertys auf fremde Forms verweisen, die noch nicht geladen sind. Das scheint aber nicht der Fall zu sein. Auch konnte ich im VCL-Sourcecode nur eine Stelle finden, in der das Flag überhaupt angesprochen wird: System.Classes GlobalFixupReferences - dort wird es wieder entfernt.

Weiß jemand, ob das Flag überhaupt gesetzt wird und wenn ja, wo? Oder kann ich anders erkennen, das das Fixup erledigt ist nun nun auch die Propertys aus anderen Modulen gesetzt sein müssten?

Danke für eure Rückmeldungen.

Robert

[peterbelow]

Zitat von gemeni2005:

Hallo,

ich habe eine Komponente, die als published Property auf einen TComponent-Nachfahren verweist, der im Datenmodul liegt.

Ich hoffe, das datamodule wird vor dem Form erzeugt?

Zitat:

Das Property wird korrekt beim Fixup geladen. Nun muss ich aber an einer bestimmten Stelle erkennen, ob der Fixup bereits abgeschlossen ist. Da das Property optional ist, kann ich nicht einfach auf nil abfragen.

Wo ist diese "bestimmte Stelle"? Wenn Du die Methode Loaded überschreibst sollte dort das Fixup erledigt sein, jedenfalls wenn das DM schon existiert.

[himitsu]

Wenn es auf was anderes verweißt, was noch nicht geladen ist, dann funktioniert es nur, wenn das Andere vor dem Ende des Ladens erstellt/geladen wird, also späteres wenn im Fixup nochmal danach gesucht wird.

Das DatenModul bzw. eine andere Form muß also schon vorher vorhanden sein. (außer man erstellt es irgendwie mitten beim Laden, z.B. über ein KomponentenCreate oder PropertySetter)

[gemeni2005]

Hallo,

danke für eure Antworten.

Das Datenmodul wird vor der Form erzeugt und das Property auch korrekt versorgt, wenn denn eines hinterlegt ist.

Im Getter möchte ich einen Default-Wert zurückgeben, falls das Property nicht durch den User explizit gesetzt wurde:

Code:

function TRkToolBar.GetVisualStyle: TRkVisualStyle;
begin
  if Assigned(FVisualStyle) then
    Result := FVisualStyle
  else
    Result := FDefaultVisualStyle;
end;

Das Problem ist, dass bei diesem Getter der Fixup-Mechanismus den Default-Wert zurückbekommt und das im DFM vorhandene Property aus dem Datenmoodul nicht mehr zuweist, obwohl der Wert sauber in der DFM-Datei vorhanden ist.

Nun dachte ich, ich kann es über csFixups lösen, so dass der Fixup nil zurückbekommt und dann die Zuweisung vornimmt:

Code:

function TRkToolBar.GetVisualStyle: TRkVisualStyle;
begin
  if Assigned(FVisualStyle) then
    Result := FVisualStyle
  else
    Result := FDefaultVisualStyle;
  if (csFixups in ComponentState) then
    Result := nil;
end;

Aber offensichtlich wird entgegen der Dokumentation das Flag nie versorgt (komischerweise in GlobalFixupReferences entfernt: Exclude(TComponent(Instance).FComponentState, csFixups)

Wenn ich keinen Getter verwende, funktioniert die Zuweisung, allerdings kann ich dann zur Laufzeit keinen Standard zurückgeben.

Robert

[Uwe Raabe]

Mach mal einen Breakpoint im Getter und schau dir den ComponentState im Debugger an. Ich vermute auch, dass du mit einer Überprüfung auf csLoading weiter kommst.

[gemeni2005]

Hallo Uwe,

danke für deine Rückmeldung. Das habe ich schon gemacht. Leider wird csLoading bereits in Loaded der Komponente gelöscht, der gesamte Global-Fixup-Mechanismus läuft aber hinterher.
Leider habe ich auch keine Möglichkeit gefunden, mich in den ganzen Fixup-Ablauf einzuklinken.

Robert

[Uwe Raabe]

Ich bin ja faul - kannst du ein kleines Beispielprojekt anhängen?

[gemeni2005]

Hallo Uwe,

gerne anbei. Vielen Dank für deine Bemühungen.
Beim ersten Öffnen in der IDE wird das Property gelöscht, obwohl das Datenmodul als erste Form definiert ist. Schließe ich nur die Form und öffne sie erneut, bleibt es erhalten.
Das Verhalten ist in beiden Fällen wie erwartet (Property wird zugewiesen), sobald ich keinen Getter definiere.

Viele Grüße

Robert

[Uwe Raabe]

Da fehlt Rk.Vcl.ToolBar.pas

[gemeni2005]

Guten Morgen Uwe,

sorry, wie es manchmal so ist: Die Datei war in einem Suchpfad. Nun habe ich sie eingefügt.
Viele Grüße
Robert