XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: nur Ziffern als Eingabe
declare exit&,e%
declare edit&,vorgabe$
def GetWindowLong(2) !USER32, GetWindowLongA
def SetWindowLong(3) !USER32, SetWindowLongA
def SetEditNumeric(1) SetWindowLong(&(1),-16,or(GetWindowLong(&(1),-16),$2002))
cls
exit& = CreateButton(%HWnd,Beenden,10,380,100,35)
vorgabe$ = 0123456789
edit& = CONTROL(Edit,vorgabe$,$54810080,10,20,200,25,%HWnd,0,%HInstance,$0200)SetFocus(edit&)
SetEditNumeric(edit&)

whilenot e%

    WaitInput

    if GetFocus(exit&)

        e% = 1

    endif

wend

end