Anzahl Zeilen in TMemo beschränken

[Stefan Bachmann]

Hallo,

Ist es möglich, ein Memofeld auf eine bestimmte Anzahl Zeilen zu beschränken, so dass z.B. nur 3 Zeilen eingegeben werden können ?

[Andreas Kosch]

Hallo,

das folgende Beispiel prüft bei jedem Tastendruck nach, ob mehr als 3 Zeilen oder mehr als 30 Zeichen eingetragen wurden. Wenn ja, wird der Anwender über eine MessageBox informiert und das Zeichen wird verworfen:
<pre>
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
iTextLen : Integer;
begin
// maximale Zeilenanzahl prüfen
if Memo1.Lines.Count > 3 then
begin
ShowMessage('Bitte nur 3 Zeilen eintragen');
Key := #0;
end;
// maximale Textlänge prüfen
iTextLen := Memo1.Perform(WM_GETTEXTLENGTH, 0, 0);
if iTextLen > 30 then
begin
ShowMessage('Bitte nur 30 Zeichen eintragen');
Key := #0;
end;
end;
</pre&gt

[Stefan Bachmann]

Besten Dank für Ihre Antwort. Funktioniert wunderbar