SYS(2008,"I",2)Now I have VFP 8.0 (and WinXP) and off course it dosn't work
loForm=CREATEOBJECT("frmTest") loForm.show DEFINE CLASS frmTest AS form DoCreate = .T. Caption = "Form1" WindowType = 1 Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Height = 23, ; Left = 72, ; Top = 60, ; Width = 228, ; Name = "Text1" PROCEDURE Load DECLARE INTEGER CreateCaret IN user32 INTEGER hwnd, INTEGER hBitmap, INTEGER nWidth, INTEGER nHeight DECLARE INTEGER ShowCaret IN user32 INTEGER hwnd DECLARE INTEGER GetFocus IN user32 DECLARE INTEGER HideCaret IN user32 INTEGER hWnd DECLARE INTEGER SetCaretPos IN user32 INTEGER X, INTEGER Y ENDPROC PROCEDURE text1.GotFocus THIS.ForeColor=RGB ( 255, 255, 255 ) THIS.BackColor=RGB ( 255, 0, 0 ) LOCAL hFocus, lnRet hFocus = GetFocus() ret = CreateCaret(hFocus, 1, 4, this.Height-4) ret = ShowCaret(hFocus) ret = SetCaretPos(this.left+3,this.top+2) ENDPROC PROCEDURE text1.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl LOCAL hFocus, lnRet hFocus = GetFocus() lnRet = HideCaret(hFocus) lnRet = CreateCaret(hFocus, 1, 4, this.Height-4) lnRet = SetCaretPos(this.left+(this.selStart*7)+10,this.top+2) lnRet = ShowCaret(hFocus) ENDPROC ENDDEFINE