Привет!
В моей программе есть кнопка, которая отображает текущую раскладку клавы.
Перехватывала сообщение и выводила в название кнопки.
код использовался такой:
| Код |
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;
|
так вот в висте переключение клавы работает, но не отображает на кнопке!!!!  может есть какая функция другая, или может другое решение можно найти 
все было здорово |