Das Fenster sollte immer im Vordergrund seien und oben links in der Ecke des Bildschirm.
Beispiel :
Code: Alles auswählen
#Escape=10
If OpenWindow (1, 1024, 0, 900 , 500 , " WebGadget ", #PB_Window_SystemMenu)
StickyWindow(1,1)
AddKeyboardShortcut(1, #PB_Shortcut_Escape,#Escape)
WebGadget (1, 0, 0, 900 , 500 , "https://www.amazon.de/Prime-Video/")
Define myBrowser.IWebBrowser2 = GetWindowLongPtr_(GadgetID(1), #GWL_USERDATA)
myBrowser\put_Silent(#True)
SetActiveGadget(1)
Repeat
Event=WaitWindowEvent(10)
Select Event
Case #PB_Event_Menu
Select EventGadget()
Case #Escape
CloseWindow(1)
UseGadgetList(WindowID(0))
End
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
CloseWindow(1)
EndIf
Wie kann ich das ändern ?