Author: Tomas Rutkauskas
I was wondering if it were possible to restrict the number of lines in a TMemo.
For example my TMemo shall not allow to show more than 7 lines of text at once.
Handle the OnChange event with the code below.
1 procedure TForm1.Memo1Change(Sender: TObject);
2 begin3 if Memo1.Lines.Count > 7 then4 begin5 MessageBeep($FFFFFFFF);