[Langue Clavier] Comment détecter le changement de la langue ?

Salem Tout le monde,

Je suis entrain de développer un programme qui manipule les deux langues, français et arabe. Dans mon programme, je peux controler le type de clavier en utilisant "ActivateKeyboardLayout", mon problème est comment pouvoir detecter que l'utilisateur a changer la langue du clavier à partir de la barre des taches, donc à partir du système. Est ce qu'il y a un message windows ou bien je dois boucler avec un timer pour tester à chaque fois quel est le type de clavier courant ?

Choukrane.

Voila une piste:
http://msdn.microsoft.com/library/de...LANGCHANGE.asp
http://msdn.microsoft.com/library/de...NGEREQUEST.asp

Salem cpdump,

Merci beaucoup, j'ai pu grace à ton aide trouver la solution suivante.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.MessageHandler(var Msg : TMsg; var Handled : boolean); begin if (Msg.Message = WM_INPUTLANGCHANGEREQUEST) then begin Caption := 'MessageHandler: WM_INPUTLANGCHANGEREQUEST: '+ DateTimeToStr(Now) ; end; // if end;   procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := MessageHandler ; end;

---

Choukrane encore une fois.

Tu peux aussi déclarer une méthode de message dans ta form, c'est peut-être plus simple à gérer

Code:

---

1 2 3

private procedure WMInputLangChangeRequest(var Message: ???); message WM_INPUTLANGCHANGEREQUEST; ....

---

Salem cpdump,

J'ai déjà essayé et ça ne marche pas quand la forme contient un Control qui a le focus. car je crois que le message est envoyé vers celui-ci au lieu d'être envoyé vers la fiche.

Avec ma solution, je traite tous les messages qui passent par l'application c'est mieux que de la limité à une seule fiche de mon programme, ou de la dupliquer pour toutes les fiches.

Merci quand même, :wink: