Komponenten initialisieren

[Perlsau]

Zitat von Sir Rufo:

Hmmm, OnActivate wird ja wesentlich häufiger als OnShow gefeuert

Generell? Bei jedem Programm? Und wenn schon ... Man kann doch dafür sorgen, daß OnActivate nur einmal am Start ausgeführt wird: In OnCreate wird das Flag StartModus auf True gesetzt, am Ende von OnActivate auf False. Am Beginn von OnActivate heißt es dann: if not StartModus then exit; Manche Initialisierungen machten in OnShow Probleme, weil zu diesem Zeitpunkt noch nicht alle Units verfügbar sind, wie mir scheint. Daher mache ich seit Jahren alles in OnActivate. Siehst du darin ein Problem?

[Sir Rufo]

Es gibt dann ein Problem, wenn die Form nicht aktiviert wird. Ist allerdings wohl mehr theoretisch, denn um das zu bewerkstelligen, muss man die Create-Parameter der Form entsprechend anpassen

BTW Bei OnShow sind alle Units da, aber die Form u.U. noch nicht sichtbar und das macht teilweise Probleme

[Perlsau]

Zitat von Sir Rufo:

Es gibt dann ein Problem, wenn die Form nicht aktiviert wird. Ist allerdings wohl mehr theoretisch, denn um das zu bewerkstelligen, muss man die Create-Parameter der Form entsprechend anpassen
BTW Bei OnShow sind alle Units da, aber die Form u.U. noch nicht sichtbar und das macht teilweise Probleme

Dann lieg ich wohl doch nicht so falsch mit meiner Gewohnheit, notwendige Initialisierungen in FormActivate zu belassen ...

Ich kann's jetzt gerade nicht ausprobieren, weil auf meinem Entwicklungsrechner gerade ein Virenscan läuft, den ich nicht unterbrechen möchte – aber soweit ich mich erinnere, lassen sich auch Datenbank-Komponenten im Datenmodul nicht fehlerlos zum OnCreate-Zeitpunkt initialisieren.

[himitsu]

OnCreate (alt), OnCreate (neu), OnShow und OnActivte...



OnCreate (OldCreateOrder) wurde direkt im TForm.Constructor ausgelöst, also kurz nachdem die Form erstellt und die DFM geladen wurde

OnCreate (NewCreateOrder) wird im TFormAfterConstruction ausgelöst, also nachdem alles erstellt wurde
(eigentlich sollte man hier alles initialisieren, außer es gibt wirklich Probleme)

OnShow wird kurz vor dem Anzeigen ausgeführt, aber unmittelbar vor dem ersten OnActivate, wenn die Form mit Visible=True erstellt/geladen wurde

OnActivte wird jedesmal ausgeführt, wenn die Form den Eingabefokus bekommt und wenn die Form schon sichtbar ist. Es kann unter Umständen stören, wenn sich wärend des Arbeitens (Form bekommt Fokus) und auch wärend des Ladens (kurz danach, aber optisch dazugehörend) sich die Form nochmals verändert.

OnTimer, der im OnCreate aktiviert und beim ersten Aufruf wieder deaktiviert wird: entweder "kurz" nach dem OnActivate und auch, wenn die Form nicht sichtbar ist, aber nachdem definitiv alles geladen wurde (außer jemand pfuscht mit Application.ProcessMessages rum)

[Uwe Raabe]

Mit folgendem Ansatz kann man ziemlich sicher sein, daß das Form sichtbar ist und der Init-Code nur einmal aufgerufen wird.

Delphi-Quellcode:

const
  WM_INITIALIZE = WM_USER + 1;

type
  TForm177 = class(TForm)
    procedure FormCreate(Sender: TObject);
  protected
    procedure WMInitialize(var Message: TMessage); message WM_INITIALIZE;
  public
  end;

...

procedure TForm177.FormCreate(Sender: TObject);
begin
  ...
  PostMessage(Handle, WM_INITIALIZE, 0, 0)
  ...
end;

procedure TForm177.WMInitialize(var Message: TMessage);
begin
  inherited;
  { hier Initialisierungscode }
end;

[himitsu]

"ziemlich":

Es kommt fast auf's Selbe raus, wie mit einem Timer ... pfuscht jemand mit Application.ProcessMessages rum, war's das.
(und glaub mir, das kommt häufiger vor, als man denkt ... EurekaLog, DevExpress usw.)

[Sir Rufo]

@uwe Manchmal frage ich mich warum solche Dinge in der VCL nicht von Haus aus drin sind. An zuviel Code kann es nicht liegen, wohl eher daran, dass dort einigen Entwickler in der Schule Singen und Klatschen wichtiger war

[Uwe Raabe]

Zitat von Sir Rufo:

@uwe Manchmal frage ich mich warum solche Dinge in der VCL nicht von Haus aus drin sind. An zuviel Code kann es nicht liegen, wohl eher daran, dass dort einigen Entwickler in der Schule Singen und Klatschen wichtiger war

Gut möglich

[Perlsau]

Zitat von himitsu:

OnCreate (NewCreateOrder) wird im TFormAfterConstruction ausgelöst, also nachdem alles erstellt wurde
(eigentlich sollte man hier alles initialisieren, außer es gibt wirklich Probleme)

Wenn ich innerhalb von OnCreate eine Procedure im Datenmodul aufrufe, löst das eine Zugriffsverletzung aus. Deshalb hatte ich wohl alles in OnActivate gemacht.

Zitat von himitsu:

OnShow wird kurz vor dem Anzeigen ausgeführt, aber unmittelbar vor dem ersten OnActivate, wenn die Form mit Visible=True erstellt/geladen wurde

Nun habe ich den Aufruf der Verbindungs-Funktionen in OnShow verlagert – und es tut! Vorteil: Der schleppende Aufbau der Form (enthält DBGrid, das beim Programmstart so sortiert wird, wie es beim letzten Programmende war) ist nicht mehr sichtbar. Danke, Himitsu.

Zitat von himitsu:

OnActivte wird jedesmal ausgeführt, wenn die Form den Eingabefokus bekommt und wenn die Form schon sichtbar ist. Es kann unter Umständen stören, wenn sich wärend des Arbeitens (Form bekommt Fokus) und auch wärend des Ladens (kurz danach, aber optisch dazugehörend) sich die Form nochmals verändert.

Da hast du allerdings recht, weshalb ich ja auch ein Flag verwendete, das dafür sorgte, daß OnActivate nur einmal aufgerufen wird. Jetzt kann ich mir das sparen

Jetzt muß ich mir nur noch einen Splash-Screen einbauen, um die 3 Sekunden bis zur Anzeige zu überbrücken ...

[himitsu]

Das Datenmodul wird aber auch vor der Form erstellt und nicht danach?