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]

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

EN en evento KeyPress del memo poner:

Código Delphi [-]
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

[dec]

Hola,

Empezado por Gabriel

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

[jlalvarez]

gracias gabrielkc, funciona perfectamente.

[gabrielkc]

Para eso estamos