XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster bewegen und Größe ändern
Def @Movewindow(6) !USER32, MoveWindow
Windowstyle 31
Windowtitle Fenster bewegen
Window 100,100-340,300
Declare Button&
Let Button&=@Createbutton(%Hwnd,Fensterposition ändern,20,230,200,30)

While 0=0

    Waitinput

    If @Getfocus(Button&)

        @Movewindow(%Hwnd,-100,-1,340,400,1)

    Endif

Wend