PureBasic

Code : Tout sélectionner

;/ Author : Franco / Example by Droopy

Procedure WindowsMove(WindowID,State)
  RemoveMenu_(GetSystemMenu_(WindowID,State),1,#MF_DISABLED|#MF_BYPOSITION)
  DrawMenuBar_(WindowID)
EndProcedure


;/ Test
#CheckBox=0
Handle=OpenWindow(0,0,0,200,50,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Move me ?") 
CreateGadgetList(WindowID(0))
CheckBoxGadget(#CheckBox,10, 10,250,20,"Checked = Moving Enabled")
SetGadgetState(#CheckBox,#True)

Repeat 
  Event=WaitWindowEvent()
  If Event= #PB_Event_Gadget And EventGadgetID()=0
    WindowsMove(Handle,GetGadgetState(0))
  EndIf
Until Event=#PB_Event_CloseWindow