Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Anwendung wahlweise immer im Vordergrund (https://www.delphipraxis.net/114614-anwendung-wahlweise-immer-im-vordergrund.html)

smudo 28. Mai 2008 10:25


Anwendung wahlweise immer im Vordergrund
 
Ich habe in der DP eine Lösung gefunden, wie ich eine Anwendung immer im Vordergrund anzeige.
Delphi-Quellcode:
if bFront then
begin
  Application.NormalizeAllTopMosts;
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end else
begin
  //...??
end;
Was aber muss ich tun, um die Anwendung wieder normal laufen zu lassen.
Das Ganze soll per Checkbox für den Anwender wählbar sein.

Vielen Dank im Voraus
René

Luckie 28. Mai 2008 10:32

Re: Anwendung wahlweise immer im Vordergrund
 
In dem du in die Dokumentation guckst: MSDN-Library durchsuchenSetWindowPos. ;)

smudo 28. Mai 2008 10:48

Re: Anwendung wahlweise immer im Vordergrund
 
Hallo Luckie,

vielen Dank für die überwältigende Antwort ;)
Das Problem liegt aber eher bei Application.NormalizeAllTopMosts. Ich hab soeben mal probiert, den Aufruf nur damit auszuführen (im FormShow) und sieheda, die Anwendung bleibt im Vordergrund.
Womit hebe ich das aber wieder auf? Habs schon mit Application.RestoreTopMosts versucht, aber scheint auch nicht zu funktionieren. Und zur Laufzeit (also außerhalb des FormShow) hat es auch nicht geklappt...

Luckie 28. Mai 2008 10:59

Re: Anwendung wahlweise immer im Vordergrund
 
Du hast die Dokumentation nicht gelesen: http://msdn.microsoft.com/en-us/library/ms633545(VS.85).aspx
Zitat:

HWND_NOTOPMOST
Places the window above all non-topmost windows (that is, behind all topmost windows). This flag has no effect if the window is already a non-topmost window.
Und dann eventuell noch mal den Renmarks-abschnitt durchlesen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:21 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz