[WanderAlone]

Имею:
MacBook Pro + Win 7 32bit (BootCamp) + Delphi XE2

Делаю:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type   OnAppMessage = procedure(var Msg: TMsg; var Handled: Boolean) of Object;     TfrmMain = class(TForm)   private     FAppMessage: OnAppMessage;     procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);   end;   .....   procedure TfrmMain.FormCreate(Sender: TObject); begin   FAppMessage := Application.OnMessage;   Application.OnMessage := Self.ApplicationMessage; end;   procedure TfrmMain.ApplicationMessage(var Msg: TMsg; var Handled: Boolean); begin   if Msg.message = WM_INPUTLANGCHANGE then     LayoutChange(LoWord(Msg.lParam)); end;

Получаю:
Моё приложение не получает такого сообщения вообще. Меняю раскладку с клавиатуры, меняю мышью в SystemTray - результат ноль.
Ни WM_INPUTLANGCHANGEREQUEST, ни WM_INPUTLANGCHANGE.

Вопрос:
Подскажите, как можно перехватить смену раскладки при таком раскладе :-)