Mega Code Archive

 

Categories / Delphi / Examples

 

Restricting tmemo length

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;