Скачать: CL | DM;

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

← →
_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: спасибо

---

← →
Романов Р.В. ©   (2004-03-24 15:12) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.043 c