XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Buchstabenedit
Def Hiword(1) Div&(&(1),$10000)
Def Editchange(1) And(And(Equ(%Message,$0111),Equ(&Lparam,&(1))),Equ(Hiword(&Wparam),$300))

Proc Limiteditinput

    Parameters Ed_handle&,Limittext$
    Declare Text$,Position%
    Text$=Gettext$(Ed_handle&)
    Sendmessage(Ed_handle&,176,Addr(Position%),0)Aktuelle Cursorposition

    Whileloop Len(Limittext$)

        If Instr(Mid$(Limittext$,&Loop,1),Text$) > 0

            Text$=Translate$(Text$,Mid$(Limittext$,&Loop,1),)
            Settext Ed_handle&,Text$
            Text$=Gettext$(Ed_handle&)
            Sendmessage(Ed_handle&,$00B1,Position%-1,Position%-1)Cursor an gespeicherte Position
            Break

        Endif

    Wend

Endproc

Numwidth 4
Windowstyle $21B
Window 10,10 - 600,400
Declare Edit&
Edit&=Createedit(%Hwnd,,100,100,60,24)
Declare Ende%

Whilenot Ende%

    Waitinput

    If Equ(%Key,2)

        Let Ende%=1

    Elseif Editchange(Edit&)

        Limiteditinput(Edit&,1234567890)

    Endif

Wend