O problema é que eu não uso set cursor off em nenhum momento. Então, não faço ideia do que possa estar causando o sumiço do cursor.
Testei com setcursor(nCursor), também não resolveu.

Moderador: Moderadores
-lxhb
-lhbwin
-lhbtip
-lhbct
-lhbHPdf
-lhbZebra
-lhbmisc
-llibmysql
rddsql.hbc
sddodbc.hbc
hbssl.hbc
hbtip.hbc
PROCEDURE MAIN
LOCAL GetList := {}
LOCAL cNome := SPACE(40)
LOCAL cPessoa := SPACE(1)
LOCAL cObs := cObs2 := SPACE(40)
SET( _SET_CURSOR , 0 )
#ifdef __PLATFORM__WINDOWS
? "Setmode : " , SetMode(50,150)
#endif
CLS
@ 05,03 SAY "Nome : " GET cNome VALID ( ALERT( "O CURSOR E " + str(SET( _SET_CURSOR) ) ) , .T. )
@ 07,03 SAY "Pessoa : " GET cPessoa VALID ( ALERT( "O CURSOR E " + str(SET( _SET_CURSOR) ) ) , .T. )
@ 09,03 SAY "Observacao : " GET cObs VALID TESTCURSOR()
@ 11,03 say "Outra obs : " GET cObs2 VALID ( ALERT( "O CURSOR E " + str(SET( _SET_CURSOR) ) ) , .T. )
SET( _SET_CURSOR , 1 )
ALTD()
READ
SET( _SET_CURSOR , 0 )
RETURN
FUNCTION TESTCURSOR
ALERT("VOU APAGAR CURSOR")
SET( _SET_CURSOR , 0 )
RETURN .T.
cjp escreveu:Não tenho função de usuário nesse tbrowse.
Mas tenho sim várias funções chamadas nele, usando if nkey==.
Mas em nenhuma delas eu uso set cursor off. Teria qualquer outra coisa que causaria o sumiço do cursor para eu procurar?
cjp escreveu:Mas em nenhuma delas eu uso set cursor off. Teria qualquer outra coisa que causaria o sumiço do cursor para eu procurar?
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 17 visitantes