Cita:
Empezado por mjjj
tampoco... ya lohabia probado... como el length es igual o mayor a 50... despues de eso se queda pegao... no se puede escribir ni borrar en esa celda....
Alguna otra idea??
muchas gracias por tu tiempo
|
No funciona porque tampoco acpeta el carácter #8, que es el de borrar. Prueba así:
Código Delphi
[-]
if (stringgrid1.Col = 2) then
if length(stringgrid1.Cells[2, stringgrid1.row]) <= 50 then
CharUpperBuff(@Key, 1)
else
if key>31 then Key := #0;
No aceptará carácteres, pero sí Enter, Retroceso, Tabulación...
Salu2.