Always on top

[Savar]

Wie kann ich erreichen, dass eine Form immer im Vordergrund ist, selbst vor der Taskbar.

SetWindowPos(Form1.Handle, HWND_TOPMOST, ...

hab ich schon probiert, jedoch wenn ich die Windows-Taste drücke oder etwas in der TNA anklicke kommt die Taskbar wieder in den Vordergrund.

[SirThornberry]

grund ist das mit drücken der Windowstaste die Taskbar genau das gleiche macht wie du in deinem Programm, sie bringt sich nach ganz vorn. Lösung wäre das du sändig prüfst ob dein programm ganz vorn ist und wenn dies nicht der Fall ist, bringst du es wieder nach vorn. (es liegt leider in der Natur der Sache das immer nur ein Fenster das oberste Fenster sein kann)

[Savar]

Das leuchtet ein. Wie kann ich ständig eine Prozedur im Hintergrund laufen lassen, die das überprüft.

[Karlson]

z.B. indem du in einem TTimer Event folgendes überprüfst:

Delphi-Quellcode:

 if GetForeGroundWindow <> Handle then BringToFront;

[Savar]

Timer ist eine gute Idee. Dank dir. Werd's gleich ausprobieren.

[Savar]

Wunderbar, es funktioniert. So macht man aus 20 Zeilen unnützem Code eine Zeile, die was bringt. Nochmals danke.

[FlinkerFinger]

Hallo , also ich habe jetzt schon fast alles ausprobiert was ich gefunden habe, jedoch immer wenn ich auf die Verknüpfung drücke, welche mir nur den desktop anzeigt, verschwindet es trotzdem immer wieder.Wie kann ich dem entgegenwirken ??

Ausprobiert habe ich folgendes in einer Timer Prozedur:

Delphi-Quellcode:

    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
FormStyle := fsStayOnTop;
SetWindowPos(Hnd, HWND_TOPMOST, Self.Left, Self.Top, Self.Width, Self.Height, SWP_NOSIZE);//on top
if GetForeGroundWindow <> Handle then BringToFront;

[Savar]

Ich glaub das hat was damit zu tun, dass alle Fenster minimiert werden, wenn du auf das Symbol klickst. Es hat also erst mal nichts mit Always on top zu tun. Du kannst vielleicht in deinen Timer noch eine Prozedur einbauen, die dein Fenster wiederherstellt sobald es minimiert wird.

[FlinkerFinger]

Hmm ne ich habe nix veraendert und nur noch die zeile

Delphi-Quellcode:

SetWindowPos(Handle, HWND_TOPMOST, Self.Left, Self.Top, Self.Width, Self.Height, SWP_NOSIZE);

drin und es geht jetzt wunderbar =D auch delphi macht mal fehler so wie mir scheint.

[Savar]

Zitat:

Zitat von FlinkerFinger

Hmm ne ich habe nix veraendert und nur noch die zeile

Delphi-Quellcode:

SetWindowPos(Handle, HWND_TOPMOST, Self.Left, Self.Top, Self.Width, Self.Height, SWP_NOSIZE);

drin und es geht jetzt wunderbar =D auch delphi macht mal fehler so wie mir scheint.

Ich nehm an das NOSIZE verhindert das minimieren.