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 ?