Limitar Caracteres en un Memo

[jlalvarez]

Buenas, el problema que tengo es que necesito saber si hay alguna forma de limitar el numero de caracteres por linea en un memo.

Es decir que solo permita escribir en el memo un número determinado de caracteres por línea.

[gabrielkc]

:p Quizá le falte perfeccionarlo pero sería algo así :

EN en evento KeyPress del memo poner:


procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
const MAX_LENGTH=15;
var Line:Integer;
begin
Line := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
if not (Key in [#13,#8]) then
if Length(memo1.Lines[LPos])=MAX_LENGTH then
Key:=#13
end;


No lo he calado........ pero se ve bien :p

[dec]

Hola,


No lo he calado........ pero se ve bien


¿Pero verdad que ahora entre etiquetas DELPHI el código se ve mejor aún? Pues eso. :)

[gabrielkc]

jeje, perdón, se me olvidó.

Y efectivamente se ve mucho mejor ;) :D

[jlalvarez]

gracias gabrielkc, funciona perfectamente.

[gabrielkc]

Para eso estamos