delphi4arab منتديات دلفي للعرب
كيفية إجبار Tedit على الكتاية بالحروف الأجنبية فقط - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية إجبار Tedit على الكتاية بالحروف الأجنبية فقط (/showthread.php?tid=2896)



كيفية إجبار Tedit على الكتاية بالحروف الأجنبية فقط - abdelali91 - 16-03-2011

السلام عليكم
كيف إجبار Tedit على الكتاية بالحروف الأجنبية فقط أوبالكتابة باللغة العربية فقط
شكرا


كيفية إجبار Tedit على الكتاية بالحروف الأجنبية فقط - hmourad85 - 16-03-2011

السلام عليكم ورحمة الله وبركاته.
أنظر هذا الرابط:
http://delphi4arab.net/forum/showthread.php?tid=2722&highlight=beep
بالتوفيق.


كيفية إجبار Tedit على الكتاية بالحروف الأجنبية فقط - kachwahed - 16-03-2011

جرب عند OnKeyPress
كود :
if not (UpCase(Key) in ['A'..'Z', '_', ' ', #8, '0'..'9']) then Key := #0; //arabic if not (Key in ['ا'..'ي', '_', ' ', #8, '0'..'9']) then Key := #0;
أو التقاط أحداث WM_SETTINGCHANGE / WM_INPUTLANGCHANGE / WM_INPUTLANGCHANGEREQUEST
http://www.delphi4arab.net/forum/showpost.php?p=19864&postcount=4
بالتوفيق.