XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fensterposition verändern
declare but&
cls
print Bitte Fenster verschieben und danach den Test-Button anklicken ...
but& = CREATE(Button,%HWnd,Test,10,100,100,30)
SetWindowPos %HWnd = 0,0 - 640,480;-1
SetFocus(But&)

while 1

    Waitinput

    if GetFocus(but&)

        SetWindowPos %HWnd = 0,0 - 640,480;0

    endif

wend