كيف كتابة عدة اسطر في memo و تحديد هذا العدد مثلا ب 3

[paix144]

و عليكم السلام ورحمة الله
مرحبا بك في المنتدى أخي
بالطبع أخي، في الحدث OnChange ل TMemo

كود :

procedure TForm1.Memo1Change(Sender: TObject); const MaxLine = 5; begin if Memo1.Lines.Count > MaxLine then Memo1.Perform(EM_UNDO, 0, 0); Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0); end;