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

[abdelali91]

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

[hmourad85]

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

[kachwahed]

جرب عند 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/showpos...ostcount=4
بالتوفيق.