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
بالتوفيق.