Restricting TMemo length (Views: 28)
Problem/Question/Abstract: 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; |