16-03-2011, 06:17 PM
16-03-2011, 09:13 PM
السلام عليكم ورحمة الله وبركاته.
أنظر هذا الرابط:
http://delphi4arab.net/forum/showthread....light=beep
بالتوفيق.
أنظر هذا الرابط:
http://delphi4arab.net/forum/showthread....light=beep
بالتوفيق.
16-03-2011, 09:35 PM
جرب عند OnKeyPress
أو التقاط أحداث WM_SETTINGCHANGE / WM_INPUTLANGCHANGE / WM_INPUTLANGCHANGEREQUEST
http://www.delphi4arab.net/forum/showpos...ostcount=4
بالتوفيق.
كود :
if not (UpCase(Key) in ['A'..'Z', '_', ' ', #8, '0'..'9']) then Key := #0;
//arabic
if not (Key in ['ا'..'ي', '_', ' ', #8, '0'..'9']) then Key := #0;http://www.delphi4arab.net/forum/showpos...ostcount=4
بالتوفيق.