Anwendung mit fsStayOnTop aber ohne Fokus

[CodeX]

Eine kleine Anwendung, die nur aus einer Form ohne Rahmen (bsNone) besteht, soll nach dem Start direkt im Vordergrund sein und dort auch bleiben. Das erreiche ich durch FormStyle = fsStayOnTop, was auch problemlos so wie gewünscht klappt.

Das Problem ist jedoch, dass die Anwendung beim Starten den Fensterfokus erhält, was ich nicht möchte. Der Fokus soll unverändert dort bleiben, wo er bereits ist, wenn die Anwendung startet.
Kann ich das verhindern?

Ich habe zu dem Thema einige Informationen gefunden. Allerdings bezogen sich die meisten darauf, wie man vorgeht, wenn man aus der Anwendung eine neue Form erzeugt (was in dem ja etwas anders ist). Weiterhin habe ich viele Hinweise auf SetWindowPos erhalten. Das habe ich aber nicht meinem Wunsch gemäß verwenden können.

Delphi-Quellcode:

SetWindowPos(Handle,
               HWND_BOTTOM,
               Left, Top, Width, Height,
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

Bei Verwendung von HWND_BOTTOM bleibt Startet das Fenster im Hintergrund und bleibt auch beim Hervorholen nicht im Vordergrund (fsStayOnTop geht quasi verloren). Bei anderen HWND-Werten bleibt das Fenster im Vordergrund, erhält aber nach wie vor den Fokus. Auch unterschiedliche Kombinationen der SWP-Parameter führten nicht zum Erfolg.

Kann mir da bitte jemand weiterhelfen?

[Bummi]

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm3 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
    FDonAllready: Booleanw;
    Fhwnd: HWND;
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormActivate(Sender: TObject);
begin
  if not FDonAllready then
  begin
    FDonAllready := true;
    SetForegroundWindow(Fhwnd);
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  Fhwnd := GetForegroundWindow;
end;

end.

[ConnorMcLeod]

oder...

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := False;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  protected
    procedure CreateParams(var AParams : TCreateParams); override;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var AParams: TCreateParams);
begin
  inherited CreateParams(AParams);
  AParams.ExStyle := AParams.ExStyle or WS_EX_NOACTIVATE;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

end.

[CodeX]

Genial! Vielen herzlichen Dank Euch beiden! :)