XProfan

Def GetSysColor(1) !"USER32","GetSysColor"
declare edit%,Button2&,Pos&,Gesamt&

Proc Cursor2

    parameters z%
    setfocus(edit%)
    sendmessage(edit%,$00B1,z%,z%)

Endproc

cls GetSysColor(15)
edit%=createedit(%hwnd,"Hallöchen",10,60,160,20)
Button2&=createbutton(%hwnd,"Cursor an pos. 4",10,90,160,24)
Pos&=CreateText(%hwnd,"",10,10,140,20)
SetFocus(edit%)

WHILE 1

    waitinput 1
    sendmessage(Edit%,176,addr(Gesamt&),0)
    settext Pos&,str$(Gesamt&,sendmessage(Edit%,187,-1,0))
    case getfocus(Button2&): Cursor2 4

Wend