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.

Answer:

Handle the OnChange event with the code below.
   
1   procedure TForm1.Memo1Change(Sender: TObject);
2   begin
3     if Memo1.Lines.Count > 7 then
4     begin
5       MessageBeep($FFFFFFFF);
6       Memo1.Lines.Delete(7);
7     end;
8   end;