- Explorer aktiv
- ich starte mein Programm
- Mein Programm aktiv mit Main-Fenster
- Ich erzeuge/öffne ein neues Fenster
Warum sollte dieses neue Fenster nicht aktiv sein?
Wo hab ich den Denkfehler?
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