Get Multiline - limitar longitud

[rolando]

Buenas Noches,

Tengo un editbox en el que edito una cadena de caracteres con un get multiline.

Como en el Multiline no puedo establecer un picture, necesitaría poder limitar la cantidad de caracteres que se escriben en el mismo (en este caso a 250 caracteres).

Lo que necesitaría es que al llegar al final del límite, lo indique con msgsound() y quede el cursor en esa posición.

¿Como puedo hacerlo?

Gracias.

Rolando

[MGA]

REDEFINE GET oGet VAR cObse ID 107 OF oDlg MEMO on change(tamaob(oGet))

*********************************
static function tamaob(oget)
*********************************
local ctesy:=LEN(TRIM(oget:cText)),cTES2
cTES2 :=cTESY+1
IF cTES2>399
msg("Atenção !!! Limites de caracteres alcançado !!!")
endif
return(.t.)


Espero ter ajudado

[rolando]

Gracias por responder, pero no es lo que quiero hacer.

Lo implementé con un RichEdit al cual le puedo indicar el máximo de caracteres a recibir (oRich:nRTFSize := 250) y luego paso el texto del rich directamente al campo del registro.

Gracias - Moito obrigado

Rolando