بهذا الكود يمكنك جعل الكتابة تتحرك سطر للأعلى كلما ضغطت على الزر
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Perform(EM_LineScroll, 0, 5);
end;
كيف يمكنك جعل الكتابة تتحرك في TMEMO
مغلق
هذا الموضوع مغلق.
بهذا الكود يمكنك جعل الكتابة تتحرك سطر للأعلى كلما ضغطت على الزر
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Perform(EM_LineScroll, 0, 5);
end;
هذا الموضوع مغلق.