| Автор
| Сообщение |
 zeleniy
Новичок
Возраст: 32
Знак зодиака: 
Зарегистрирован: 25.06.2007
Сообщения: 12
Откуда: Ростов-на-Дону
|
|
|
Цитата |
|
Привет!
В моей программе есть кнопка, которая отображает текущую раскладку клавы.
Перехватывала сообщение и выводила в название кнопки.
код использовался такой:
| delphi: | procedure TMainWindow.MsgHandler(var Msg: TMsg; var Handled: Boolean); var AbbrLangSystem: array[0..2] of char; begin if Msg.message = WM_INPUTLANGCHANGEREQUEST then begin ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); GetLocaleInfo(LoWord(GetKeyboardLayout(0)),LOCALE_SISO639LANGNAME ,@AbbrLangSystem,SizeOf(AbbrLangSystem)); // bbLangs.Caption:=UpperCase(AbbrLangSystem); end; end;
|
так вот в висте переключение клавы работает, но не отображает на кнопке!!!! может есть какая функция другая, или может другое решение можно найти |
|
| В начало |
|
 |
|
|
 |
|
