Erkennen, wann alle Propertys geladen sind

[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

[Uwe Raabe]

Zitat von gemeni2005:

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.

Schuld ist hier diese Codezeile in GlobalFixupReferences:

Delphi-Quellcode:

               
 if (Root <> nil) or (GetOrdProp(aPropFixup.FInstance, aPropFixup.FPropInfo) <> 0) then

Diese wird am Ende von ReadRootComponent, also beim Laden des Forms, aufgerufen. Existiert das Datenmodul dann noch nicht, ist zwar Root = nil, aber GetOrdProp liefert FDefaultChild zurück und das Fixup wird entfernt.

Wenn du damit leben kannst, dass zur Designtime in der IDE das Property mit nil anstatt FDefaultChild im Objektinspektor steht, dann kannst du das mit folgendem Code erreichen:

Delphi-Quellcode:

function TParentComponent.GetChild: TChildComponent;
begin
  if Assigned(FChild) or (csDesigning in ComponentState) then
    Result := FChild
  else
    Result := FDefaultChild;
end;