Changing Charset when keyboard layout changed

[Pikkunero]

Ok. I've tried googling and i have found a load of related tips but nothing works for me.

I have D5Ent on XP.

First of all i can change the keyboard layout from my program. That's easy. But the thing is that when my program is running and the user changes the keyboard layout i need to change the charset of a specific component. This component handles the style (and font) of all other input components (like TEdit) on all my forms. It's a MDI application.

I have tried to trap the WM_INPUTLANGCHANGE and WM_INPUTLANGCHANGEREQUEST messages but with no luck. With them i could use DefWindowsProc but in my case i can't do that.

One thing that i found and would be suitable for me (if i would work) goes like this:

type
  TWMinputLangChange = packed record
    msg: Cardinal;
    charset: WPARAM;
    localeID: LPARAM;
    result: Longint;
  end;

procedure WMInputLangChange(Var msg: TWMinputLangChange); message WM_INPUTLANGCHANGE;

procedure Tfm_MDIChild.WMInputLangChange(var msg: TWMinputLangChange);
begin
  fm_MDIChild.DefaultController.Style.Font.Charset := msg.Charset;
end;

This seems nice but it's dated back to 1997 thus it's not working. Back then the message WM_INPUTLANGCHANGE was not in the messages.pas and you had to type it yourself.

I tried it but i just couldn't get it to go into the procedure WMInputLangChange for some reason. Have i missed something? Apprently this message goes only for the ActiveControl of a form.

Anyway if someone knows how to trap the WM_INPUTLANGCHANGE message AND use it to change the charset of a component without DefWindowsProc, PLEASE help me.

 

[Nordlund]

Hi.
Use the TApplicationEvents component to discover when settings change....
Use the Event "OnSettingsChange" to discover changes


//Nordlund

 

[Pikkunero]

Hmm.

It was you some stupid misthinking from my part. Catching the message WM_INPUTLANGCHANGEREQUEST does work the way i need it to work.

And i also found a component which automatically traps this message. It's TKeyboardLayout 1.1

JP