где и как отследить смену раскладки клавиатуры?

← →
_Guest_ (2004-03-24 14:42) [0]

собственно сабж. про "как" вроде всё понятно: отлавливать WM_INPUTLANGCHANGE или WM_INPUTLANGCHANGEREQUEST. а вот где его ловить? или может есть какой-нибудь другой способ?

← →
clickmaker © (2004-03-24 14:45) [1]

SetWindowsHookEx, WH_SHELL

← →
[lamer]Barmaglot © (2004-03-24 14:51) [2]

Приблизительно так...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMInputChange(var Message: TMessage); message WM_INPUTLANGCHANGEREQUEST;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMInputChange(var Message: TMessage);
Begin
MessageBox(Form1.handle, "Они её меняют!!!!", "", mb_ok);
end;

end.

То clickmaker © (24.03.04 14:45) [1]

Зачем такие сложности?

← →
_Guest_ (2004-03-24 14:53) [3]

2[lamer]Barmaglot:
попробуй кинуть на свою пустую форму один эдит и поменять раскладку.

← →
_Guest_ (2004-03-24 15:03) [4]

2clickmaker: спасибо

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_INPUTLANGCHANGEREQUEST then
ShowMessage("qqq");
end;

где и как отследить смену раскладки клавиатуры? Найти похожие ветки