Memo auf zwei zeilen begrenzen?

[Fliege]

hi, kann man bei einen Memo eine maximale Zeilenanzahl einstellen? ich möchte, dass man nur 2 zeilen eingeben kann.

DANKE!!!

[Fliege]

hat sich erledigt, hab bei google gesucht

[junix]

Es gehört im allgemeinen zum guten Ton die selbst gefundene Lösung noch zu posten, damit andere auch davon profitieren können.

-junix

[Fliege]

Die lösung ist aber in delphi geschrieben. Ist kein problem das umzuschreiben, hatte aber noch keine zeit:

if key = #13 then begin
    with Sender as TMemo do begin
      if lines.count >= 2 then begin
        key := #0;
        line := Perform( EM_LINEFROMCHAR, SelStart, 0 );
        if line < 1 Then
          SelStart := Perform( EM_LINEINDEX, line+1, 0 );
      end;
    end;
  end;