Property vorhanden um festzustellen ob im OnLoad-Event

[Bernhard Geyer]

Gibt es eigentlich eine Möglichkeit festzustellen ob das Formular schon das OnCreate-Event abgearbeitet hat?
Das FormState-Property ist hier schon [].

Hintergrund:
Im OnCreate werden viele Einstellungen/Ladeoperationen durchgefüht welche dazu führen das teilweise Events ausgelößt werden. Bisher habe ich in diesen Formularen ein bInLoad-Boolean definiert welche am beginn des OnCreate-Events auf True gesetzt wurde und am Ende auf False und in den "gefährteten" Eventhandlern abgeprüft wurde und bei bInLoad = True keine aktion durchgeführt wurde.

[marabu]

Hallo Bernhard,

es gibt meines Wissens keine Eigenschaft direkt für diesen Zweck, welche du abfragen kannst. Manchmal genügt mir die Eigenschaft Active, ein anderes Mal verwende ich die Eigenschaft Tag und setze sie am Ende von OnCreate auf 1. Je nach Fall kannst du in den fraglichen event handlern sicher auch noch andere indirekte Indikatoren verwenden, aber mit deiner Methode liegst du nicht falsch - zumal sie dich von OldCreateOrder unabhängig macht.

Grüße vom marabu

[himitsu]

Notfalls könnte man die entsprechenden EventHandler auch erst am Ende von OnCreate setzen.

[Muetze1]

Delphi-Quellcode:

If Assigned(EventHandler) And ( Not ( csLoading In ComponentState ) ) Then
  EventHandler(Self);

Oder du überschreibst dir AfterConstruction.

[marabu]

Hallo Thomas,

Zitat von Muetze1:

... Oder du überschreibst dir AfterConstruction.

da ist sie dann wieder - die Abhängigkeit von OldCreateOrder.

Freundliche Grüße

marabu

[Muetze1]

Ok, aber der erste Vorschlag ist nutzbar...

[Bernhard Geyer]

Hmmm.

Also wenns keine fertige Lösung auf TForm-Basis gibt werde ich mich halt meine Basis-Formularklasse erweitern und
dort ein InLoad-Property ergänzen sowie die DoCreate-Methode überschreiben.

Das Active/Tag-Property wird u.U. schon Andersweitig verwendet so das diese Lösung auch ausscheidet.

Aber trotzdem Danke an alle Mit-Überlegenden.

[himitsu]

Blos nochmal zum Erwähnen ^^

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Var _OnResize: Pointer;

  Begin
    _OnResize := Self.OnResize;  Self.OnResize := nil;

    ...

    Self.OnResize := _OnResize;
  End;

Vorteile:
der Vorfahr braucht nicht geändert zu werden
und in den EventHandlern ist kein Code nötig (diese werden ja garnicht aufgerufen)