Boa tarde pessoal,
Alguém sabe se é possível contar os caracteres que estão sendo digitados e ir apresentando na tela? Tal como, o que vemos em alguns sites.
Luciano, qual seria o cenário? A função Len talvez ajude.
olá, você pode usar um objeto tget ( https://tdn.totvs.com/display/tec/TGet ) e na hora de criar o objeto tem a opção de definir uma função pelo parâmetro bchange ( https://tdn.totvs.com/display/tec/TControl%3AbChange ) que será chamada toda vez que o tget sofrer alguma modificação, com escrita via teclado.
Josué,
Obrigado pelo seu tempo, funcionou somente quando eu preencho a quantidade total do objeto Tget, exemplo: atribuí 5 espaços à variável cGet, quando estou digitando nada ocorre, porém no quinto caracter a função é disparada. Eu preciso que seja disparada a cada digitação.
LocaL cTGet1 := SPACE(5)
Private nQuant := 10
DEFINE MSDIALOG oDlgEdtMsg TITLE "Edição da(s) mensagem(ns)" FROM 000,000 TO 350,700 PIXEL STYLE DS_MODALFRAME
oTGet1 := TGet():New( 05,30,{||cTGet1},oDlgEdtMsg,096,009,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,{||u_CONTAR()},.F.,.F.,,cTGet1,,,, )
ACTIVATE MSDIALOG oDlgEdtMsg CENTERED
return
user function CONTAR() Local cMsg nQuant := --nQuant
cMsg := alltrim(str(nQuant))
@050 + 15,040 Say cMsg OF oDlgEdtMsg PIXEL
return .T.
Josué vc conseguiu resolver ? Se sim, pod eme dizer como ?