Bei Memofeld Zeilen anzahl Beschränken

[p-lab]

hi nochmal,

Besser du benutzt RichEdit, da kannst du mit RichEdit.WantReturns:=False einen weiteren Zeilensprung unterdrücken:

Delphi-Quellcode:

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  If RichEdit1.Lines.Count>21 then RichEdit1.WantReturns:=False;
end;

ps: du musst den Wert bei weniger als 21 zeilen natürlich wieder auf True zurücksetzen

mfg p-lab