تحويل الغة من الفرنسية الى العربية عن طريق برمجة بالدالفي

[احمد عين التوتة]

السلام عليكم
اخواني اطلب منكم المساعدة انا بصدد انجاز برنامج بالدالفي و فيه edit يجب ان يعمل بالفرنسية اما الاخر فمن الضروري ان يعمل بالعربية المطلوب ان يكون البرنامج ذكي و يغير اللغة تلقائيا عند الدخول الى edit الثاني
حاولت بتطبق التالي
syslocale.MidleEast:= true
edit1.Bidimode:=bdRighttoleft
LoadKeyboardLayout('0000040c', KLF_ACTIVATE
Application.BiDiKeyboard := '0000040c'
لكن الفكرة غير ناجحة لذلك اطلب منكم المساعدة و شكرا

[المثابر120]

اتمني لو استطيع المساعدة لكن لسوء الحظ لاعلم لي بهذه الامور ارجو من الذي يملك خبرة في هدا المجال ان لايبخل بالمساعدة واجره عند لله

[حسن سلامة]

السلام عليكم
اخى لم فهم جيداالمطلوب بالضبط .حاول الاستفادة من الخاصية onchange للعنصر edit المطلوب . ارجو التوضيح اكثر لكي استطيع فهمالمطلوب

[BONOI]

السلام عليكم ورحمة الله
اخي تقوم بتحديد edit وتذهب الى evenements من inspecteur d'objets ثم نقرتين على OnEnter وتكتب

LoadKeyboardLayout('00000401', KLF_ACTIVATE); 
   Application.BiDiKeyboard := '00000401';

هذا بالنسبة للعربية ولارجاع اللغة انجليزية تقوم بنفس الطريقة مع تغيير الكود الى

LoadKeyboardLayout('0000040c', KLF_ACTIVATE); 
   Application.BiDiKeyboard := '0000040c';

ملاحظة: يجب ان يكون نوع الخط من font الخاص بـ edit يقبل اللغة العربية والا ستظهر رموز
والسلام عليكم

[FOUADALGER]

السلام عليكم ورحمة الله وبركاته
اشكرك اخي bonoi على الحل الرائع
ايام كثيرة وانا ابحث عن جواب لهذا السؤال
بارك الله فيك وجعلها في ميزان حسناتك-امين-