An einer bestimmte Stelle verschieben

[PBZecke]

Dann behalte Deinen code und ändere die Erstellungsreihenfolge der
Gadgets. Trotzdem: das Übereinanderlegen von Gadgets ist keine gute
Idee!

Code: Alles auswählen

OpenWindow(0,0,0,100,100,"ff",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
CreateImage(1,100,20)
StartDrawing(ImageOutput(1))
Box(0,0,100,20,RGB(0,0,255))
StopDrawing()

CreateGadgetList(WindowID(0))

btn = ButtonGadget(2,3,3,15,15,"x")
img = ImageGadget(1,0,0,100,20,ImageID(1))

Repeat
  Event = WaitWindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
 
 
 
  If Event = #PB_Event_Gadget
    If GadgetID = 2
      End
    ElseIf GadgetID = 1
      ReleaseCapture_()
      SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, WindowID(0))
    EndIf
  EndIf
 
ForEver

[RSBasic]

@PBZecke
Sorry, aber wie du gesagt hast, dass es nicht empfehlenswert ist.
Aber beim Verschieben verschwindet mein Button, wenn ich auserhalb des Bildschirms verschiebe.

[ts-soft]

reicht nicht sowas:

Code: Alles auswählen

If OpenWindow(0,0,0,100,100,"ff",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  SetWindowLong_(WindowID(0), -20, 4194304|256)
  CreateGadgetList(WindowID(0))

  While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

EndIf

?