otra de memos, marchando!

[superhopi]

Mi pregunta es corta y clara:
¿Cómo puedo hacer que mi memo tenga una longitud máxima por linea? Es decir, que me pase de linea automaticamente aunque haya mas espacio (por ejemplo)
Muchas gracias.

[marcoszorrilla]

Exigua y preclara respuesta espero:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if TcustomMemo(memo1).CaretPos.x > 10 then
  begin
  Key:=Chr(Vk_Delete);
  Key:=Chr(10);
  end;
end;

Y perdona si te he despertado.

Un Saludo.

[delphi.com.ar]

Supongo que esto fallará cuando peguen datos del portapapeles... Para eso vas a tener que trabajar con el mensaje WM_PASTE.


Saludos!