Einzelnen Beitrag anzeigen

LTE5

Registriert seit: 13. Nov 2017
355 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Form wirklich oben halten, Alternative zu FormStyle fsStayOnTop

  Alt 13. Nov 2017, 21:15
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
  Mit Zitat antworten Zitat