Clavier Qwerty
Résolu
Utilisateur anonyme
-
27 oct. 2005 à 22:32
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 31 oct. 2005 à 09:13
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 31 oct. 2005 à 09:13
A voir également:
- Simulation clavier qwerty
- Symbole flash clavier ✓ - Forum Flash
- Simulateur de frappe clavier - Forum C / C++ / C++.NET
- Python détecter touche clavier - Forum Python
- Simulation keno - Forum Visual Basic
- Évènements clavier ✓ - Forum Python
5 réponses
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
30 oct. 2005 à 15:06
30 oct. 2005 à 15:06
const
AzertyPattern : string = 'aAqQwWzZ,?mM';
QwertyPattern : string = 'qQaAzZwWmM;:';
function QtoA(chaine : string) : string;
begin
result := StringReplace( machaine , QwertyPattern, AzertyPattern, [rfReplaceAll]);
end;
function AtoQ(chaine : string) : string;
begin
result := StringReplace( machaine , AzertyPattern, QwertyPattern, [rfReplaceAll]);
end;
AzertyPattern : string = 'aAqQwWzZ,?mM';
QwertyPattern : string = 'qQaAzZwWmM;:';
function QtoA(chaine : string) : string;
begin
result := StringReplace( machaine , QwertyPattern, AzertyPattern, [rfReplaceAll]);
end;
function AtoQ(chaine : string) : string;
begin
result := StringReplace( machaine , AzertyPattern, QwertyPattern, [rfReplaceAll]);
end;
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
30 oct. 2005 à 15:07
30 oct. 2005 à 15:07
ah sinon , achete un clavier Azerty ... tout simplement ... 5 a 15? dans n'importe quel magasin
Utilisateur anonyme
30 oct. 2005 à 19:32
30 oct. 2005 à 19:32
Non foxi c'est pas bon non non :
*Premièrement ca marche que pour l'application.
*Deuxièmement : sa remplace toute la chaine de caractère. Moi je veux un truc quand tu écris tout se passe comme si tu as un vrai clavier qwerty c'est à dire quand tu appuyes sur une toucher
Tu as le droit de rejouer
*Premièrement ca marche que pour l'application.
*Deuxièmement : sa remplace toute la chaine de caractère. Moi je veux un truc quand tu écris tout se passe comme si tu as un vrai clavier qwerty c'est à dire quand tu appuyes sur une toucher
Tu as le droit de rejouer
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
31 oct. 2005 à 05:32
31 oct. 2005 à 05:32
demarrer > parametres > options regionale et linguistiques >
onglet "langues" > cadre "services de texte et langues d'entrée"
> boutton details > boutton ajouter > langues d'entrée
"francais" / configuration clavier/IME "Anglais (US) > OK >
Appliquer > Selectionner "Anglais"
pouf clavier QWERTY ...
onglet "langues" > cadre "services de texte et langues d'entrée"
> boutton details > boutton ajouter > langues d'entrée
"francais" / configuration clavier/IME "Anglais (US) > OK >
Appliquer > Selectionner "Anglais"
pouf clavier QWERTY ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
31 oct. 2005 à 09:13
31 oct. 2005 à 09:13
si tu utilises des edits tu peux faire
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'a':key:='q';
'A':key:='Q',
'q':key:='a';
'Q':key:='A';
.
.
.
.
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'a':key:='q';
'A':key:='Q',
'q':key:='a';
'Q':key:='A';
.
.
.
.
end;
end;