Hallo,

ich habe ein kleines Programm mit mehreren Formen am laufen und dieses Programm muss immer im Vordergrund gehalten werden. Mit FormStyle := fsStayOnTop funktioniert es soweit auch sehr gut, allerdings gibt es das Problem das wenn ich über die Hauptform beispielsweise Form2 aufrufe diese dann auch in den Hintergrund geht und meine Anwendung dadurch unbrauchbar wird.

Die zweite Form auch auf fsStayOnTop zu stellen hilft nichts, die Hauptform bleibt immer oben drauf. Wie kann ich das bewerkstelligen?

Dafür schon einmal vielen dank

Geraten:

Bei der Anzeige von Form2 dort fsStayOnTop setzen und fsStayOnTop bei Form1 entfernen.

Beim Schließen von Form2 bei Form1 wieder fsStayOnTop setzen.

Habe es jetzt genauso gelöst, nun taucht ein anderes Problem auf.

Zwischenzeitlich wird eine andere Anwendung aktiv und schiebt sich in den Vordergrund.
Habe versucht die andere Anwendung mit folgendem Code dauerhaft in den Hintergrund zu schicken, aber auch dies hat nicht funktioniert.

markieren

Delphi-Quellcode:

SetWindowPos(FindWindow('Programm', 'Programm Titel'),
             HWND_BOTTOM, 0, 0, 0, 0, SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE);

Hallo,
das andere Programm kann sich selbst wieder in den Vordergrund bringen,
wie Du mit Deinem Programm.
Vielleicht hilft ja SW_HIDE?

Sorry, das erinnert mich irgendwie hieran: https://blogs.msdn.microsoft.com/old...7-00/?p=35413/

SetWindowTopMost(hWin, True); // hWin = Handle des "StayOnTop" Fensters ; True = Top / False = NotTop
und ich glaub da gab es noch ein ResetTopMost o.ä., bitte Delphi Hilfe konsultieren!

markieren

Delphi-Quellcode:

function SetWindowTopMost(hWnd: HWND; bTopMost: boolean): boolean;
begin
 Result := SetWindowPos(hWnd, HWND_NOTOPMOST + WORD(bTopMost), 0, 0, 0, 0,
  SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;

Nachtrag:
Wenn Du experimentier-freudig bist kannst Du mit folgendem Code herumspielen,
der sollte Bewirken das mein Programm im Vordergrund vor allen anderen steht.
Wird bei mir im OnCreate Event aufgerufen.

zusammenfalten · markieren

Delphi-Quellcode:

function GetSysFocus: Integer;
var
  hFgWin, FgThreadID{, hFocusWin}: Integer;
begin
  hFgWin := GetForegroundWindow;
  FgThreadID := GetWindowThreadProcessID(hFgWin, nil);
  if AttachThreadInput(GetCurrentThreadID, FgThreadID, True) then
  begin
// hFocusWin := GetFocus;
    Result := GetFocus;
    AttachThreadInput(GetCurrentThreadID, FgThreadID, False);
  end
  else
    Result := GetFocus;
end;