SetWindowPos funktioniert nicht

[Max]

Ich habe eine Anwendung programmiert, die vor allen anderen "laufenden" Anwendungen immer onTop sein soll.

Dieses Programm ist ein kleines Fenster mit einigen Editkomponenten, in die ich Werte aus einem Fenster einer anderen "laufenden" Anwendung
eintrage. Aus diesen Werten wird dann u. a. ein zweizeiliger Text generiert und in die Zwischenablage kopiert.

Der Inhalt der Zwischenablage wird dann in ein Textfeld eines anderen Fensters der "laufenden" Anwendung (siehe oben) eingefügt.

Das Problem ist, dass meine Anwendung nicht vor allen anderen Anwendungen permant auf dem Desktop erscheint.

Ich habe im OnCreate-Ereignis des Formulars folgenden Quelltext eingefügt:

SetWindowPos(Form1.Handle ,HWND_TOPMOST,0,0,0,0,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Aber irgendwie funktioniert es nicht. Die Unit Windows steht in der uses-Klausel. Was mach ich falsch?

Ich benutze folgenden Lazarus-Version: lazarus-0.9.26.2-fpc-2.2.2-win32

Für Eure Hilfe vielen Dank im voraus.

[Euklid]

Ich habe eine Anwendung programmiert, die vor allen anderen "laufenden" Anwendungen immer onTop sein soll.

Hallo Max, willkommen im Lazarusforum!

Eventuell hilft dir folgende Eigenschaft weiter?:

Code: Alles auswählen

Form1.FormStyle:=fsStayOnTop;

Viele Grüße, Euklid

[monta]

fsStayOnTop arbeitet wohl nur ANwendungsintern, nicht Desktopweit:

http://bugs.freepascal.org/view.php?id=13629
http://bugs.freepascal.org/view.php?id=11977

[Max]

Hallo Euklid, hallo monta,

danke für die Antworten, aber leider bringen die mich nicht weiter.

@ Euklid: Wie in monta 's antwort erwähnt, funktioniert fsStayonTop nur "innerhalb" einer Anwendung. Damals unter Delphi 5 funktionierte es auch desktopmäßig.

@ monta: Die Bugs hatte ich auch schon gesehen. Zu Bug 11977 ist auch eine Text-Datei mit *.patch beigefügt. Ich hatte mal versucht die Datei "win32callback.inc" entsprechend anzupassen, aber das hat auch keine Auswirkungen.

Normalweiser ist es doch so, wenn es keine Pascalfunktion gibt, kann man sich evtl. mit einer API-Funktion behelfen.

Aber wie schon gesagt, die API-Funktion bewirkt i. d. F. nichts.

[Max]

Hat denn keiner einen Lösungsvorschlag oder weiß woran es liegt?

[Scotty]

Ändert sich was, wenn du das woanders aufrufst, OnShow zum Beispiel?

[Max]

Leider, nein! Schade, ich möchte Lazarus eigentlich weiter nutzen und nicht wieder auf eine alte Deplhi-Version zurückgreifen.
Gerade weil man Lazarus auch portabel, sprich: auf USB-Stick, nutzen kann.

[monta]

Ein etwas schmutziger Hack wäre höchstens ein Timer und ein regelmäßiges abprüfen, ob das Formular verdeckt ist und wenn ja, dann halt ein BringToFront.

Sollte gehen, ist natürlich nicht wirklich schön.

[Scotty]

Kann es sein, dass es um Linux geht? Dort ist ein globales StayOnTop definitv ein Hack. Eine Lösung für solch ein übles Ziel könnte sein, dass man das Formular über alle Steuerelemente maximiert (0,0,Screen.Width,Screen.Height) und Alt-Tab (nicht OnKeyUp, das kann anders sein, sondern OnLeave, OnHide o.ä. komm gerade nicht drauf) verhindert. Oder bei Programmstart einfach alle anderen Programme schließen und dann übermaximieren.

[Euklid]

Immerhin soll der Bug bis zur Version 1.0 von Lazarus behoben sein... ... warten lohnt sich