Establecer numero maximo lineas RichEdit o Memo

[pepecharlie67]

Hola me gustaria saber como establecer un numero maximo de lineas a un richedit o un memo.Es decir,quiero que el numero maximo de lineas sean 3 y no sobrepase de ahi.Gracias

[pepecharlie67]

Ya va.Ya esta hecho.

[vtdeleon]

Saludos

Empezado por pepecharlie67

Ya va.Ya esta hecho.

Explicanos cómo, para los futuros foristas que tengan la misma duda.

[pepecharlie67]

Pues lo que hecho ha sido un poco chapuza pero bueno,en mi caso me vale mas que de sobra.A ver,yo simplemente he contado el numero de letras que me cabe en una linea,por ejemplo 30.Pues si quieres tres lineas,es simplemente multiplicar por 3.Osea que en el campo MaxLength del richedit simplemente deberiamos poner 90.

[[Ohcan]]

Bueno...
A mí se me ocurre:

Código Delphi [-]
 //En el evento OnChange (da igual para Memo que para RichEdit)
 procedure TForm1.Memo1Change(Sender: TObject);
 begin
   if memo1.Lines.Count > 9 then ShowMessage('No se pueden añadir más líneas');
 end;

sustituyendo el 9 por el número/variable/constante que prefieras.
y el showmessage por algo que borre las lineas que sobran (Memo.Lines.Delete(I)
Saludos

[[Ohcan]]

No me quedé nada a gusto con el post anterior...
Así que mejor sería, quizás, esto:

Código Delphi [-]
procedure TForm1.ElMemoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  MaxLines:Integer;
begin
  MaxLines := 2;
  while ElMemo.Lines.Count > MaxLines do
    ElMemo.Lines.Delete(ElMemo.Lines.Count-1);
end;

MaxLines lo he definido allí mismo... pero sería mejor que fuera una constante ...