Also hiermit ist ClientForm bei mir aktiv:
Delphi-Quellcode:
procedure TfrmMain.FormShow(Sender: TObject);
begin
PostMessage(
Handle, WM_SETUPAPPLICATION, 0, 0);
end;
procedure TfrmMain.WMSetupApplication(
var pmvMessage: TMessage);
begin
FClientForm := TfrmClient.Create(Self);
FClientForm.Show;
end;
Bis bald...
Thomas
Das ist nicht in Ordnung, weil FormShow sehr früh aufgerufen wird. Bevor das Fenster sichtbar ist.
Ich starte
Splash kommt
Desktop-Form kommt
... jetzt laufen die ganzen Inits .. das dauert ein wenig ...
MainForm wird gezeigt (also die zweite Form)
und der Splash verschwindet.
Am Bildschirm ist jetzrt die DesktopForm (die erste Form, Delphi-MainForm) sichtbar, aber im Hintergrund
Im Fordergrund ist die zweite Form, meine persönliche MainForm
Leider nicht aktiv, was zu optischen Unschönheiten führt, die ich gerne beseitigen möchte.
Ich könnte (siehe erstes Posting) an der Stelle, an der ich den Splash schließe ein Postmessage machen. Aber da vermute ich keinerlei Änderung. Was ist "WM_SETUPAPPLICATION". Ich finde nichts im Internet darüber.