Memo شفافة

في الفورم يوجد الخاصية Alphablend ضعها true

والخاصية Alpha Blend Value على قيمة مناسبة فيظهر الفورم ومحتواه شفافا

وعندها يمكنك وضع ميمو على فورم خاص وضبط هاتين الخاصيتين

أريد كود أخي العزيز يجمد لي الMemo بحيث أن لا أحد يستطيع تحديد النص الذي فيها في نفس الوقت تكون Enabeld

أخ صقر

قم بتعريف متحول بولياني في البدء وليكن اسمه sel

الآن في قسم الأحداث التابع لـ Memo

إذهب للحدث OnMouseUp

أكتب sel:=True

وفي الحدث OnMouseMove

أكتب if sel=true then edit1.SetFocus

وفي الحدث OnMouseUp

أكتب sel:=False

وهكذا فإنه عندما يريد شخص أن يحدد أي نص فإنه يتم مباشرة نقل التحديد لعنصر آخر وليكن مثلاً Edit

أما إذا أراد أن يضع فقط مؤشر الماوس في نقطة محددة لإضافة الكلمات فذلك ممكن.

أيضاً يمكنك عدم الإنتقال لعنصر آخر وذلك بجعل الحدث OnMouseDown يكشف أي سطر وأي محرف تم وضع المؤشر عنده وبالتالي فإنه عند تحريك الماوس المضغوط

يجب عليك أن تعطي الحدث OnMouseMove أوامر بنقل التحديد لهذه النقطة.

ملاحظة هامة:

في هذه الشيفرة يتم منع المستخدم من التحديد بواسطة الماوس أما لو نقر بالماوس

وتابع التحديد بأزرار الكيبورد بواسطة Shift فيتم التحديد وللتخلص من ذلك يجب أن تقوم بفحص عمل أزرار الأسهم مع زر Shift

آمل أن يكون الجواب مفيد وهذه هي معلوماتي حول هذه النقطة الآن وشكراً....