begin process at 2012 02 08 16:24:12
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Control

 > CHANGER LA LANGUE DU CLAVIER PAR PROGRAMMATION

CHANGER LA LANGUE DU CLAVIER PAR PROGRAMMATION


 Information sur la source

Note :
9 / 10 - par 2 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Control Classé sous :clavier, langue, arabe, bidikeyboard, loadkeyboardlayout Niveau :Expert Date de création :18/01/2006 Vu / téléchargé :47 039 / 2 534
Auteur : aymenk

Ecrire un message privé
Site perso
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Quand vous vous deplacez d'un control la langue de saisie change par programmation

Source

  • 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. 
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.


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip GENERATEUR DE TEXTURE
Source avec Zip Source avec une capture STÉGANOGRAPHIE OU COMMENT CACHÉ DU TEXTE DANS UNE IMAGE
Source avec Zip Source avec une capture GET SERIAL DRIVE
Source avec Zip SENDKEY DU VB EXEMPLE SIMPLE DE COMPREHENSION
Source avec Zip Source avec une capture FRACTAL FRACTALS...3E PARTIE
Toutes les sources de aymenk

 Sources de la même categorie

TFRAME ONSHOW ONHIDE par redtux
Source avec Zip Source avec une capture GESTION DE CASES À COCHER PERSONNALISÉES DANS UN STRINGGRID par Jean_Jean
Source avec Zip UN TASKDIALOG EN TROIS CLICKS par chramade
Source avec Zip Source avec une capture DÉPLACER LES ITEMS D'UNE TLISTVIEW PAR DRAG AND DROP par krzysiu
Source avec Zip Source avec une capture DEPLACER LES ITEMS D'UNE LISTBOX VERS UNE AUTRE PAR DRAG AND... par japee
Toutes les sources de la catégorie Control

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture UTILISATION DE TLANGUAGES par diglas
Source avec Zip Source avec une capture DACTYLOGRAPHE par Bacterius
Source avec Zip Source avec une capture GESTION DU CLAVIER G15 DE LOGITECH par delphitness
Source avec Zip ARRAWI : APPRENDRE L'ALPHABET ARABE EN IMAGE ET EN SON par mihoubi3333
Source avec Zip GETKEYBOARDLANGUAGE : CONNAÎTRE LA LANGUE DU CLAVIER DE L'UT... par japee

Commentaires et avis

Commentaire de JulioDelphi le 18/01/2006 18:57:29 administrateur CS

Je n'ai pas testé le code (je n'ai pas delphi sous la main) mais il me semble que cela change la langue SEULEMENT pour le programme en cours, je veux dire, celui qui "lance" ce code. Fait le test en le modifiant ici puis ouvre Notepad et enfin, tape "azerty" =)
Si le but recherché est celui de modifier le layout du clavier pour le pc complet, quel que sois le programme en focus, alors cela ne marchera pas.
Si le but était plutot d'utiliser ce code pour ses propres programmes, alors ça marche =)
Merci de feedback ;)

Commentaire de cirec le 19/01/2006 02:00:15 administrateur CS

Salut,

@ Florenth pour les infos essaye ça :
procedure TForm1.Button4Click(Sender: TObject);
Const
Lang = '%s LocaleID %d';
Var language : TLanguages;
    I : Integer;
begin
  language := TLanguages.Create;
  For I := 0 to Language.Count -1 do
  ListBox1.Items.Add ('['+Language.ID[i]+'] - ('+Language.Ext[i]+') - '+Language.Name[i]);
//
//   ListBox1.Items.Add (Format(Lang, [Language.Name[I], language.LocaleID[I]]));

   ListBox1.Sorted := True;
   Language.Free;
End;

C'est Language.ID qui donne ce code
@+
Cirec

Commentaire de aymenk le 20/01/2006 16:17:25

Salut JulioDelphi;
Juste pour le prog. en cours sans passé par la barre des Tache ....

Commentaire de aymenk le 20/01/2006 16:23:51

Salut florenth;
lance une recherche pour touvé le mot '00000401' dans le source de Delphi et du coup tu trouvera les code des autre langues....

je viens de voir le site JAP.. c'est jolie , et des que l'ADSL sera mise j'apprendrais le JAP...
a++

Commentaire de DRJEROME le 21/01/2006 21:48:36

Salut,

nous en avions déjà parlé là :

http://delphifr.com/forum.v2.aspx?id=115455

http://delphifr.com/forum.v2.aspx?id=348717


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

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

drjerome JROD ;)

Commentaire de DRJEROME le 21/01/2006 21:54:31

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...

Commentaire de cirec le 22/01/2006 01:40:40 administrateur CS

Si déjà regarde ici :
http://www.delphifr.com/forum.v2.aspx?ID=628290

parce que si tu dois deviner les codes pays ça crain
alors que là c'est win qui te les fournis

@+
Cirec

Commentaire de kam_2006 le 04/03/2006 11:49:16

Merci
je veux le tester

Commentaire de islem1984 le 21/07/2007 18:14:15

Merci pour le code
mais je l'ai essai et aucun changemment c'est à dire j'arrive toujours pas à ecrire sous delphi en Arabe

Commentaire de ottolicos le 23/07/2007 18:48:48

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?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Edit et la langue clavier [ par ahmed12 ] Salut tout le mondeje voudrais savoir comment je peux changer la langue de clavier quand je positionne sur un edit pour povoire écrire en L'angler Question sur un clavier visuel [ par urusei ] Bonjour, j'en suis au travail à développer un clavier visuel pour les écran tactiles que l'on trouve dans le points de vente à gr probleme de la langue arabe [ par moun778 ] salut a tout le mond je suis entrain de developper une application sql server + delphi7  mais j'ai trouvee un pb avec la langue arabe , ma base contie Changer la langue du clavier [ par JulioDelphi ] Hello,je désire changer la langue du clavier, mais pas seulement dans mon aplication Delphi, mais pour le PC (meme apres la fermeture de mon appli)j'a ecrire une application en d'autre langue. [ par katib ] salut, comment on peut réaliser une application en d'autre langue...? exemple je veut ecrire une application en langue arabe, (Fichier Edition Format, langue arabe avec delph [ par lahreche ] clavier arabe [ par smarthttp ] Bonjour tt le monde voila un smart clavier arabe, tres pratique:voir la vidéo   [url]http://www.smart-http.com/clavier-arabe-virtuel-en-ligne-avec-la- probleme de affichage langue Arabe, [ par laamouri ] bien voilà, avec ma version de DELPHI 2005 j'ai installer le TNTunicode, heureusement j'ai eu l'affichage en langue arabe, pour les bases de données j base de donnée avec différente langue tel que l'arabe [ par hasinekha ] bonjour je veut crée une base de donnée avec le "wamp server" mais avec la langue arabe c'est à dire le nom de la base et tout les champs sont en arab


Nos sponsors


Appels d'offres

Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Saintes Maries de la Mer vue du ciel (13)
Photo Bright Beautiful Daisy and Grass Field 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,264 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)