XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Edit: Cursor ans Ende der Eingabezeile setzen
declare edit&,Gesamt&,zeichen%,zeile%,Button&,Anz%

Proc Cursor2End

    Anz%=len(gettext$(Edit&))
    setfocus(edit&) Erst den Focus setzen
    sendmessage(edit&,$00B1,Anz%+1,Anz%+1)

Endproc

cls
edit&=createedit(%hwnd,Hallöchen,10,10,120,20)
Button&=createbutton(%hwnd,Cursor ans Ende,10,30,120,20)
SetFocus(edit&)

WHILE 1

    waitinput

    if getfocus(Button&)

        Cursor2End

    Endif

Wend