PureBoard

Verfasst: **19.01.2006 16:42**

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.

Verfasst: **19.01.2006 16:54**

Dr.Pixel hat geschrieben: @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()

Verfasst: **20.01.2006 15:34**

Dank an SoS und ts-Soft.
Klappt wunderbar

PureBoard

Fenster NUR bestehend aus Titlebar und Buttons?