Möglicherweise bin ich auf einen Fehler in PureBasic gestoßen.
Es betrifft das Toolbar-Gadget.
Solange die Toolbar integriert ist, verändern sich die Fenstereigenschaften.
Wen man nach dem Start des Prgs ein anderes Fenster anklickt, sollte das eigene Prg nach 2,5 Sekunden wieder vorne kommen.
Das Fenster bleibt im Hintergrund obwohl es mit den anderen Befehlen (Topmost,Sticky...) nach vorne geholt werden sollte.
Bitte den Code mal prüfen.
Code: Alles auswählen
If OpenWindow(0, 0, 0, 150, 125, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateToolBar(0, WindowID(0))
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
EndIf
Delay (2500)
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
StickyWindow(0, #True)
SetActiveWindow(0)
SetWindowState(0, #PB_Window_Maximize)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Menu
Debug "ToolBar ID: "+Str(EventMenu())
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
Code: Alles auswählen
If OpenWindow(0, 0, 0, 150, 125, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; If CreateToolBar(0, WindowID(0))
; ToolBarStandardButton(0, #PB_ToolBarIcon_New)
; ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
; ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
; EndIf
Delay (2500)
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
StickyWindow(0, #True)
SetActiveWindow(0)
SetWindowState(0, #PB_Window_Maximize)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Menu
Debug "ToolBar ID: "+Str(EventMenu())
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
Gruß
Lite