XProfan

Español

Pedro
Santos

¡Hola

Kennt alguien una SendMessage en en una Editar sólo Buchstaben zuzulassen?

Gracias

Gruss

Pedro

Windows XP Home
Xprofan 10

10.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Leider gibts esta kein SendMessage - el bekommst Usted aber así [...]

hin, en genau a ser más así [...]

10.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Pedro,
Hiermit gehts auch con einfachen Profanmitteln:
Kompilieren Marca Separación

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