Fenster NUR bestehend aus Titlebar und Buttons?

[SoS]

Code: Alles auswählen

Enumeration 
  #Window_1 
EndEnumeration 

;- Gadget Constants 
; 
Enumeration 
  #Text_0 
  #Button_1 
EndEnumeration 



Procedure Open_Window_1() 
  If OpenWindow(#Window_1, 310, 257, 558, 18,  #PB_Window_BorderLess , "New window ( 1 )") 
    If CreateGadgetList(WindowID()) 
      TextGadget(#Text_0, 5, 0, 110, 15, "Test v1.16") 
      ButtonGadget(#Button_1, 115, 0, 90, 20, "1-5") 
      ProcedureReturn #True
    EndIf 
  EndIf 
EndProcedure 

If Open_Window_1() =#False 
  MessageRequester("Fehler konnte kein Fenster oeffnen","Fehler",0) 
EndIf 

Repeat
  Event = WindowEvent()
  GadgetID = EventGadgetID()
  If Event = #WM_LBUTTONDOWN
    SendMessage_(WindowID(#Window_1),#WM_NCLBUTTONDOWN, #HTCAPTION,0)
  EndIf
  Delay(1)
  
Until GadgetID=#Button_1 

Ich benutze hier Deinen Button um das Programm zu beenden.

[ts-soft]

@ts-soft: Irgendwie funzt es noch nicht so ganz.

Wenn Du kein SetWindowCallback() in Deinen Code einbaust, kann es nicht funzen

Meins funzt übrigens auch mit WaitWindowEvent()

[Dr.Pixel]

Dank an SoS und ts-Soft.
Klappt wunderbar