Accueil > > > CHANGER LA LANGUE DU CLAVIER PAR PROGRAMMATION
 CHANGER LA LANGUE DU CLAVIER PAR PROGRAMMATION
 Information sur la source
 Description
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.
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 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
|
Derniers Blogs
 TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|