Discussion :

[Fares BELHAOUAS]

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.

[cpdump]

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

[Fares BELHAOUAS]

Salem cpdump,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[cpdump]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fares BELHAOUAS]

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,