AlwaysOnTop mit mehreren Formularen

[Dalai]

Ein freundliches Hallo an die Experten . [Ggf. passt das Thema auch zu GUI-Design.]

Bislang setze ich Formulare OnTop mit der folgenden Funktion:

Delphi-Quellcode:

procedure AlwaysOnTop(AOnTop: Boolean; const AFormHandle: THandle);
begin
  if AOnTop then
      SetWindowPos(AFormHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE)
  else
      SetWindowPos(AFormHandle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Das funzt auch wunderbar - jedenfalls in allen Anwendungen, die nur ein Formular haben bzw. bei denen nur eines OnTop sein soll.

Gestern fügte ich einem Projekt ein weiteres Formular hinzu, das wie das erste Formular OnTop sein soll. Jeden, der nun anmerkt, dass nicht beide OnTop sein können, kann ich beruhigen, denn die Formulare sind explizit nicht übereinander sondern immer nebeneinander auf dem Bildschirm. Es geht nur darum, dass beide Formulare über den Fenstern anderer Anwendungen liegen sollen.

Nachfolgend ein simples Testprojekt, das das Verhalten ebenfalls zeigt. Form1 wird automatisch erzeugt, Form2 nicht.

Unit1 mit Form1:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  uGUIHelper, Unit2;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    Fform2: TForm2;
  public
  end;

const
  bShowForm2: Boolean = True;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
    if bShowForm2 then begin
        Fform2:= TForm2.Create(nil);
        Fform2.Show;
    end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    Fform2.Free;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
    uGUIHelper.AlwaysOnTop(True, Self.Handle);
end;

end.

Unit2 mit Form2:

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
  public
  end;

implementation

uses uGUIHelper;

{$R *.DFM}

procedure TForm2.FormActivate(Sender: TObject);
begin
    uGUIHelper.AlwaysOnTop(True, Self.Handle);
end;

end.

Problemstellung: Beim mehrfachen Umschalten zwischen Form2 und anderen Anwendungen passiert es in aller Regel beim zweiten Umschaltvorgang, dass mindestens Form2, manchmal auch beide Formulare das OnTop-Attribut verlieren. Schaltet man zwischen Form1 und anderen Anwendungen um, passiert dies nicht.

Kann mir jemand erklären, warum das passiert? Ich schätze mal, die VCL macht da mehr, als ich in diesem Fall gebrauchen kann. Gibt es eine Möglichkeit, zu verhindern, dass die Formulare das Flag HWND_TOPMOST verlieren?

Grüße
Dalai