Establecer numero maximo lineas RichEdit o Memo

[[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 ...

[[Ohcan]]

Y si esto va a ser para todos los TMemo....

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type

  TMemo = class(StdCtrls.TMemo)

  private
    FMaxLines:Integer;
    FOnKeyUp: TKeyEvent;
    procedure WMKeyUp(var Message: TWMKeyUp); message WM_KEYUP;
    procedure SetMaxLines(Value:Integer);
  protected
    property OnKeyUp: TKeyEvent read FOnKeyUp write FOnKeyUp;
  public
    property MaxLines:Integer read FMaxLines Write SetMaxLines default 0;
  end;

  TForm1 = class(TForm)
    ElMemo: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMemo }

procedure TMemo.SetMaxLines(Value: Integer);
begin
  if Value<>FMaxLines then
    if Value<0 then
      raise Exception.Create('A MaxLines no se le pueden asignar valores menores de cero(0).')
    else
      FMaxLines := Value;
end;

procedure TMemo.WMKeyUp(var Message: TWMKeyUp);
begin
  if FMaxLines<>0 then
    while Lines.Count > FMaxLines do
      Lines.Delete(Lines.Count-1);
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  ElMemo.MaxLines := 3;
end;

end.

Crea una palicación desde cero... pon un memo en el formulario (llámalo ElMemo) y sustituye el código de la Unit1 por el que está aquí arriba.

[pepecharlie67]

No me funciona bien la solucion propuesta.Muchas gracias de todas formas.A ver si me pueden decir una solucion alternativa.Gracias

[roman]

Pues hombre, yo creo que deberías empezar por explicarnos porqué no te funciona bien. A primera vista, la solución de Ohcan parece cumplir lo esperado.

// Saludos

[JOSEA]

La función de ohcan, de lujo, pero si además quieres que funcione parecido a un Tedit (o sea si escribes al principio del Tmemo que no borre la ultima línea entera, se me ocurre esta solución

procedure TForm1.memoKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if memo.lines.count >3 then begin
    keybd_event(vk_back, 0, 0, 0);
    keybd_event(vk_back, 0, KEYEVENTF_KEYUP, 0);
  end;
end;

Hace un efectillo raro pero funciona (incluso si pulsas un enter)