RichEdit Linesanzahl

[Gehstock]

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Richedit1.Lines.Count > 2 then  //max. Linienanzahl
 begin
  ShowMessage('Maximale Textlänge erreicht');
  Key :=#0;
end;
end;

ungeprüft