Changer la langue du clavier par programmation

Soyez le premier à donner votre avis sur cette source.

Vue 55 082 fois - Téléchargée 3 705 fois

Description

Quand vous vous deplacez d'un control la langue de saisie change par programmation

Source / Exemple :


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Edit1Exit(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1Exit(Sender: TObject);
 begin
if (sender is TEdit) then
   case (sender as tedit).Tag of

   2:
   begin
   LoadKeyboardLayout('0000040c', KLF_ACTIVATE);
   Application.BiDiKeyboard := '0000040c';
   end;
   1,3:
   begin
   LoadKeyboardLayout('00000401', KLF_ACTIVATE);
   Application.BiDiKeyboard := '00000401';
   end;
   end;
 end;
end.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
16
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
9 janvier 2008

bonjour Aymenk, je suis très ravis de savoir qu'on peut faire changer la langue du clavier si facillement. Mais se qui m'eteresse est de savoir faire la même chose avec php, si tu as une idée?
Messages postés
2
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
5 avril 2008

Merci pour le code
mais je l'ai essai et aucun changemment c'est à dire j'arrive toujours pas à ecrire sous delphi en Arabe
Messages postés
49
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
29 novembre 2010

Merci
je veux le tester
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

le code que j'avais écrit ici :

http://www.phidels.com/php/forum/forum.php3?forumtable=posts&mode=showpost&postid=89026

a l'avantage d'utiliser "LoadKeyboardLayout" et "SystemParametersInfo"

on peut certainement l'améliorer encore...
Merci à tous pour ces précisions.
A bientôt ...
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.