Foros Club Delphi - otra de memos, marchando!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - otra de memos, marchando! (https://www.clubdelphi.com/foros/showthread.php?t=1333)

superhopi

11-06-2003 08:40:11

otra de memos, marchando!

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

11-06-2003 22:15:33

Exigua y preclara respuesta espero:

Código:

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

11-06-2003 22:30:51

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

Saludos!

La franja horaria es GMT +2. Ahora son las 05:34:33.