Restricting TMemo length

This article has not been rated yet. After reading, feel free to leave comments and rate it.

Question:

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.

	procedure TForm1.Memo1Change(Sender: TObject); begin if Memo1.Lines.Count > 7 then begin MessageBeep($FfffFfff); Memo1.Lines.Delete(7); end; end;

Comments:

Email address (not necessary): Rate as Off-topic Very Helpful Helpful Ok article Not useful Very bad	Hide my email when showing my comment. Please notify me once a day about new comments on this topic. Please provide a valid email address if you select this option.
It seems that you are from Los Angeles, US . Info/ Feedback on this	Show city and country Show country only Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:
Add a picture: Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material.