السلام عليكم و رحمة الله
كيف كتابة عدة اسطر في memo و تحديد هذا العدد مثلا ب 3
و عليكم السلام ورحمة الله
مرحبا بك في المنتدى أخي
بالطبع أخي، في الحدث 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;