1. كيفية الحصول على رقم السطر الحالي
عند استخدام عنصر التحكم RichEdit (أو المذكرة) لإنشاء محرر نص، يمكنك الحصول على إجمالي عدد الأسطر عن طريق الوصول إلى سمة عدد الأسطر. ومع ذلك، من الصعب معرفة رقم السطر الذي يوجد به المؤشر حاليًا يقع، لأن دلفي لا توفر هذه السمة. لتنفيذ وظيفة المحرر الأساسية هذه، يجب استدعاء em_ LineFromChar. يرجى تجربة الإجراء أدناه.
قم أولاً بترتيب RichEdit أو مذكرة (محرر مسمى) وزرًا في النافذة. اكتب الكود التالي في حدث onclick للزر
فار
الخط الحالي: عدد صحيح؛
يبدأ
CurrentLine:=Editor??Perform(em_ LineFromChar,SFFFF,0);
application??MessageBox(PChar('رقم السطر الحالي هو'+IntToStr(CurrentLine)),'Message',mb_ iconinformation);
نهاية؛
لاحظ أن السطر الأول يحتوي على رقم سطر صفر.
2. كيفية التراجع عن عملية (تراجع)
بالنسبة للمذكرة، لا يلزم أي برمجة لتنفيذ التراجع طالما أن سمة القائمة المنبثقة فارغة، يمكن تنشيط قائمة التشغيل الشائعة باستخدام زر الفأرة الأيمن أثناء وقت التشغيل، بما في ذلك ستة عناصر: التراجع والقص والنسخ واللصق والحذف والتحديد. الجميع. .
لكن لسوء الحظ، هذه الطريقة لا تعمل مع عنصر التحكم RichEdit القوي، لذا يتعين علينا تصميم popupmemu بأنفسنا. عند استخدام CutToClipBoard والعبارات الأخرى لإكمال وظائف مثل "القص" بسهولة وسلاسة، لن تتمكن من العثور على عبارات مثل التراجع أو الإلغاء لتنفيذ "التراجع".
في هذا الوقت تحتاج إلى التعامل معها مثل هذا:
RichEdit1??Perform(EM_UNDO,0,0);
يجب عليك أيضًا التحقق مما إذا كان التراجع مسموحًا به، وبالتالي تشغيل أو إيقاف تشغيل عنصر "التراجع" في القائمة المنبثقة:
Undo1??Enabled:=RichEdit??Perform(EM_CANUNDO,0,0)<>0;
اجتاز البرنامج أعلاه تصحيح الأخطاء في Delphi3