Changer la langue du clavier par programmation

Soyez le premier à donner votre avis sur cette source.

Vue 54 688 fois - Téléchargée 3 616 fois

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
ottolicos
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?
Signaler
islem1984
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
Signaler
kam_2006
Messages postés
49
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
29 novembre 2010
 -
Merci
je veux le tester
Signaler
DRJEROME
Messages postés
447
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...
Signaler
-
Merci à tous pour ces précisions.
A bientôt ...
Afficher les 11 commentaires
S'inscrire maintenant

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.

Du même auteur (aymenk)