...limit memo lines?

procedure TForm1.Memo1Change(Sender: TObject);
const
  MaxLineCount = 5;
begin
  if Memo1.Lines.Count > MaxLineCount then
    // undo the last change
    // letze Änderung rückgängig machen
    Memo1.Perform(EM_UNDO, 0, 0);
  // The EM_EMPTYUNDOBUFFER message clears the undo flag,
  // which means that you can no longer undo your last change
  // to the edit control.
  // Die Message EM_EMPTYUNDOBUFFER löscht das UnDo Flag,
  // damit kann die letzte Änderung nicht Rückgängig gemacht werden.
  Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
end;

printed from
www.swissdelphicenter.ch
developers knowledge base