Form wirklich oben halten, Alternative zu FormStyle fsStayOnTop

[LTE5]

Nach einigem Herumgeteste habe ich eine für mich fast funktionierende Lösung gefunden, um ein Delphifenster über allen anderen externen Fenstern zu halten, da fsStayOnTop scheinbar nur innerhalb der eigenen Anwendung gilt.

Was sagt ihr dazu? Ist das ein ganz böser und dirty Hack oder brauchbar?

Delphi-Quellcode:

TaskStayOnTop := TTask.Create(
 procedure
  begin
   Sleep(5);

   while Bedingung do
    begin
     if FormStyle = fsStayOnTop then
      ForceForegroundWindow(Handle);
    end;
  end);

TaskStayOnTop.Start;

ForceForegroundWindow kommt von hier http://www.swissdelphicenter.com/de/showcode.php?id=261

[Fritzew]

Gibt es einen Grund dafür das Du das brauchst?
Das fsStayOnTop nur auf die Application zielt, hat einen Sinn.
Das System gehört dem Anwender und nicht Dir!!!!!! Wenn der aus welchen Gründen auch immer gerade was anderes machen will, so ist das sein Recht!
Bei mir würde jede Anwendung die sich so verhält rausfliegen.

[LTE5]

Es handelt sich um ein kleines Statusfenster im Systembereich. Ob es oben gehalten werden soll oder nicht, kann der Nutzer selber entscheiden.
Aber wenn es oben gehalten werden soll, dann wirklich oben. Während das Fenster unten im Systembereich sichtbar ist, läuft ein Verarbeitungsprozess, den der Nutzer auch selber startet.

[Fritzew]

Nun ja,
Das Hauptproblem ist wenn Du das Fenster nach vorne holst, wird eventuell auch der Focus auf dieses Fenster verschoben.

Ich denke mal das es nicht ganz einfach ist, das so zu lösen da Windows selber das Konzept für Fenster so nicht kennt.
Muss aber gestehen das sich für mich das Problem noch nie gestellt hat.
So weit ich das überblicke ist es auch von der Windowsversion abhängig was da genau passiert bei ForceForegroundWindow,
ich wäre da sehr vorsichtig...

[LTE5]

Wie machen es Produkte wie Avira oder andere Antiviren-Firmen denn?
Speziell Avira zeigt häufig Werbung an, die immer oben ist.

[EWeiss]

HWND_TOPMOST ?
HWND_TOP = fsStayOnTop

gruss