Vorschaufenster ohne Fokus einblenden

[OlliWW]

Hallo,

Ich habe in Delphi 2007 ein kleines Programm geschrieben, dass im Hintergrund läuft. Es checkt in regelmäßigen Abständen meine Emails und soll, wenn neue Emails vorhanden sind, ähnlich wie Outlook so ein kleines VorschauFenster "Sie haben neue Emails" einblenden.
Dazu habe ich eine kleine Form geschrieben mit fsStayOnTop und dieses funktioniert auch schon fast wie gewünscht.

Einziges Problem:
Wenn das Fenster erzeugt und angezeigt wird (Form.Show) verliert die Anwendung in der ich gerade tätig bin natürlich den Focus, was sehr umständlich ist, wenn man gerade zum Beispiel etwas tippt.

Gibt es einen Weg den Fokus in der aktuellen Anwendung (dessen Handle natürlich unterschiedlich ist) zu halten / direkt wieder umzuschalten?

[baumina]

Ich habe so etwas ähnliches für die Anzeige des aktuellen Anrufers gemacht und so gelöst, dass mein Formular erst gar kein Fokus erhält, so dass das aktuelle Fenster auch keinen verlieren kann:

Delphi-Quellcode:

  procedure DoShowWin;
  begin
    ShowWindow(fmShowAnrufer.handle, SW_HIDE); // falls das Fenster noch da ist erstmal weg machen
    fmShowAnrufer.Hide; // falls das Fenster noch da ist erstmal weg machen
    fmShowAnrufer.Show;
    ShowWindow(fmShowAnrufer.handle, SW_SHOWNOACTIVATE);
  end;

[himitsu]

Vermutlich:

Delphi-Quellcode:

ShowWindow(MyForm.Handle, SW_SHOWNOACTIVATE);
MyForm.Visible := True;

Das Fenster muß natürlich mit Visible=False erstellt wurden sein.

[edit]
Wenn das Fenster niemals den Fokus bekommen soll:
WS_EX_NOACTIVATE (sollte in CreateParams gesetzt werden)

[OlliWW]

Danke für die Antworten.
Dieser Code hat genau das getan was ich mir vorgestellt habe:

Delphi-Quellcode:

  Form2 := TForm2.Create(Self);
  ShowWindow(Form2.handle, SW_SHOWNOACTIVATE);
  Form2.Visible := True;