Topic: изменить расклад клавиатуры
как изменить расклад клавиатуры при событии OnEnter на компонент
пример
procedure Form1_Edit1_OnEnter (Sender: string, Action: string);
begin
.....
end;
- DriveSoft
- Administrator
- Offline
Re: изменить расклад клавиатуры
procedure Form1_Edit1_OnEnter (Sender: string, Action: string);
begin
ChangeKeyboardLayout(LANG_RUSSIAN);
end;вместо LANG_RUSSIAN, можете подставить и другие языки:
LANG_INVARIANT
LANG_AFRIKAANS
LANG_ALBANIAN
LANG_ARABIC
LANG_BASQUE
LANG_BELARUSIAN
LANG_BULGARIAN
LANG_CATALAN
LANG_CHINESE
LANG_CROATIAN
LANG_CZECH
LANG_DANISH
LANG_DUTCH
LANG_ENGLISH
LANG_ESTONIAN
LANG_FAEROESE
LANG_FARSI
LANG_FINNISH
LANG_FRENCH
LANG_GERMAN
LANG_GREEK
LANG_HEBREW
LANG_HUNGARIAN
LANG_ICELANDIC
LANG_INDONESIAN
LANG_ITALIAN
LANG_JAPANESE
LANG_KOREAN
LANG_LATVIAN
LANG_LITHUANIAN
LANG_NORWEGIAN
LANG_POLISH
LANG_PORTUGUESE
LANG_ROMANIAN
LANG_RUSSIAN
LANG_SERBIAN
LANG_SLOVAK
LANG_SLOVENIAN
LANG_SPANISH
LANG_SWEDISH
LANG_THAI
LANG_TURKISH
LANG_UKRAINIAN
LANG_VIETNAMESEDmitry.
Re: изменить расклад клавиатуры
спс. работает.
- DriveSoft
- Administrator
- Offline
Re: изменить расклад клавиатуры
r00t3d777 wrote:
Azerbaijani language is not there?
Try this
ChangeKeyboardLayout(44);Dmitry.
Re: изменить расклад клавиатуры
DriveSoft wrote:
r00t3d777 wrote:Azerbaijani language is not there?
Try this
ChangeKeyboardLayout(44);
Thanks Dmitry 
worked