Changer la direction du clavier pour l'arabe

Bien le bonjour

Je conçoit une petite application en arabe mais je n'arrive pas

à changer la direction des langues entre le françcais et l'arabe dans

dans un chaps Tedit

et merci d'avance

Salut;

voilà un bout de code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
	keyb_Francais : PChar = '0000040c';
	keyb_Arabe : PChar    = '00000401';
 
procedure bascule_clavier(page_code_clavier : PChar; app : TApplication);
begin
  LoadKeyboardLayout(page_code_clavier, KLF_ACTIVATE);
  app.BiDiKeyboard := page_code_clavier;
end;
 
// exemple
procedure TFMenu.Edit1Enter(Sender: TObject);
begin
  // Activation du clavier Arabe 
  bascule_clavier(keyb_Arabe, Application);
end;
 
procedure TFMenu.Edit1Exit(Sender: TObject);
begin
  // Activation du clavier Français en sortant de la saisie Arabe
  bascule_clavier(keyb_Francais, Application);
end;

Bon codage.

cherche sur ce forum, ce problème a été évoqué à plusieurs reprises.

Cordialement
octal