RichEdit: Zeilen und Zeichen pro Zeile begrenzen

[Reinhardtinho]

Hi,

ich bin jetzt auf ein Memo umgestiegen, weil die Formatierung in Excel einheitlich sein soll.

Ich bin auch ein bisschen weitergekommen, ich habe im Internet folgenenden Code gefunden:

Delphi-Quellcode:

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;

Das funktioniert für die Anzahl der Zeilen, wenn ich den Text im Memo eintippe, aber nicht wenn ich Text per Copy&Paste einfüge, weil dort die Enter-Taste nicht gedrückt wird.

Habt ihr Tipps, wie ich das Paste abfangen kann? Dankesehr.

MFG
Lorenz