XProfan

Français

Pedro
Santos

allô

Kennt quelqu'un une SendMessage um dans une Éditer seulement Buchstaben zuzulassen?

merci

Gruss

Pedro

Windows XP Home
Xprofan 10

10.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

malheureusement gibts hierfür ne...aucune SendMessage - cela bekommst Du mais so [...]

hin, um oui c'est ca trop son plutôt so [...]

10.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

allô Pedro,
Hiermit gehts aussi avec einfachen Profanmitteln:
Kompilieren Marque Séparation

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