always on top
Verfasst: 28.07.2005 20:08
Kennt jemand ein Befehl das mein kleines Programm (analoge Uhr) immer im Vordergrund zeigt?
Wenn möglich ohne ASM
Wenn möglich ohne ASM
Code: Alles auswählen
Procedure WindowFront(WindowID.l, Bool.b)
Protected X.f, Y.f
ID_TopMost.b = -1
ID_NotTopMost.b = -2
SWP_NoSize.b = 1
SWP_NoMove.b = 2
SWP_NoActivate.b = 10
SWP_ShowWindow.b = 40
X = WindowX(): Y = WindowY()
Select Bool
Case #True
SetWindowPos_(WindowID(WindowID), ID_TopMost, 0, 0, 0, 0, SWP_NoActivate Or SWP_ShowWindow Or SWP_NoMove Or SWP_NoSize)
Case #False
SetWindowPos_(WindowID(WindowID), ID_NotTopMost, 0, 0, 0, 0, SWP_NoActivate Or SWP_ShowWindow Or SWP_NoMove Or SWP_NoSize)
EndSelect
MoveWindow(X, Y)
EndProcedure