XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Eingabezeile: einige Eigenschaften setzen
Cursor an das Ende der Zeile 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,,10,10,120,20)
Button&=createbutton(%hwnd,Cursor ans Ende,10,30,120,20)

WHILE 1

    waitinput

    if getfocus(Button&)

        Cursor2End

    Endif

Wend

end
Zeichenzahl begrenzen:
Def LimitText(2) SendMessage(@&(1),$C5,@%(2),0)
LimitText(EditHandle&,Zeichenzahl%)
Nur Großbuchstaben erlauben:
SetStyle edit&,Or(GetStyle(edit&),$08)$08 = ES_UPPERCASE
Nur Kleinbuchstaben erlauben:
SetStyle edit&,Or(GetStyle(edit&),$10)$10 = ES_LOWERCASE
Vorgabetext markieren:
SendMessage(EditHandle&,$00B1,0,-1)
Eingabezeile auf ReadOnly setzen:
SendMessage(edit&,$00CF,1,s2>0)