delphi4arab منتديات دلفي للعرب

نسخة كاملة : تلوين كلمات معينة داخل richedit
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
هل من طريقة بسيطة لتلوين كلمات معينة داخل richedit
أضف عنصر Tcolorbox , ثم في الحدث Onchange الخاص بها اضغط مرتين ثم أدخل هذا الكود
كود :
 if RichEdit1.SelLength > 0 then //كي تعرف انه اختار جزءا من النص,0 تعني لم يختار    RichEdit1.SelAttributes.Color:= ColorBox1.Selected  else  showmessage('First select text!');
شكرا اخي
لكن اقصد ان اضع مجموعة كلمات 
وعند ضغط الزر تتحول الكلمات  الموضوعة مسبقا الى اللون المطلوب
استعمل
SelStart