XProfan

Italia

Pedro
Santos

Hallo

Kennt jemand eine Sendmessage um in einen Edit nur Buchstaben zuzulassen?

Danke

Gruss

Pedro

Windows XP Home
Xprofan 10

10.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Leider gibts hierfür kein Sendmessage - das bekommst Du aber so [...]

hin, um genau zu sein eher so [...]

10.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Hallo Pedro,
Hiermit gehts auch mit einfachen Profanmitteln:
Kompilieren Markieren Separieren

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