unit Unit1; <br> <br> interface <br> <br> uses <br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, <br> Dialogs, StdCtrls; <br> <br> type <br> TForm1 = class(TForm) <br> private <br> { Private declarations } <br> procedure WMtest(var Message: TMessage); message WM_INPUTLANGCHANGE; <br> public <br> { Public declarations } <br> end; <br> <br> var <br> Form1: TForm1; <br> <br> implementation <br> <br> {$R *.dfm} <br> <br> procedure TForm1.WMtest(var Message: TMessage); <br> begin <br> showmessage('have done!'); <br> end; <br> end.