Discussion :

[Ardely]

Bonsoir,

Ma programmation d'une fonction me permet de désactiver les frappes du clavier dans un TRichEdit par-exemple de a...z, mais cette fonction me permet aussi de désactiver la touche delete.

J'ai fait activer cette fonction dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
procedure TForm1.FMemo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

mais dans cette procedure ma fonction ne me permet pas de désactiver l'alphabète
seulement delete, suppression ,..

donc j'ai du mettre cette même fonction dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure TForm1.FMemo1KeyPress(Sender: TObject; var Key: Char);

qui me permet de désactiver l'alphabète.

mon problème est que j'ai deux fois toute cette fonction, une fois j'envoie au Key qui est Word et dans l'autre fonction Key qui est Char.

Ma question est alors pour optimiser mon code, est-il possible de faire tout cela dans la procedure TForm1.FMemo1KeyDown
Merci beaucoup pour l'aide, salutations
Ardely

[fab56]

Salut,

Bah je sais pas si j'ai bien compris tout ce que t'a dit mais avec l'évènement KeyDown on peut contrôler les touches A..Z normalement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.FMemo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  if Chr(Key) in ['A'..'Z'] then
    Key:=#0; { ou alors c'est Key:=0; , j'ai un doute }
  ...
end;

Après je sais pas si ca pourra t'aider.

[Ardely]

Salut, tu as raison... mais si je fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
procedure TForm1.FMemo1KeyDown(Sender: TObject; var Key: Word;
 Key:=0;

le code ne permet pas de déactiver les touches de A..Z, je ne sais pas pourquoi?

[ero-sennin]

Salut,

C'est plutôt dans le OnKeyPress qu'il faut gérer cela :

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['A'..'Z']) or (Key in ['a'..'z']) then
Key:=#0;
end;

Ce code désactive les minuscule ainsi que les majuscules

[Ardely]

Je suis d'accord avec toi pour d'éactiver les touches 'a..z' qu'il faut mettre dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

mais dans cette procedure je ne peut pas déactiver par example la touche delete ou suppression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Key := #8

[ero-sennin]

Pour la touche de retour arrière c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['A'..'Z']) or (Key in ['a'..'z']) or (Key= #8) then
Key:=#0;
end;

Par contre, je cherche comment utiliser les Virtuel Key, car pour la touche supp, il faut passer par la.

Il faut regarde dans l'aide SDK Windows sous delphi et chercher Virtual Key ou VK_ ....

Dès que j'ai une solution, je t'en fait part

[Ardely]

Merci pour l'aide, mais je pense que ma fonction, ne fonctionne que dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure TForm1.FMemo1KeyDown(Sender: TObject; var Key: Word;

Je te explique très court pourquoi. Dans cette fonction je récupére une partie
du text dans le Richedit que je transmet dans une variable de cette manière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
var VG_str1 : String;
begin
VG_str1 := copy(Fmemo1.text,0,Selstart);

Si je utilise la touche suppression, le caratère est supprimer dans VG_str1
en utilisant cette evénement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

mais si je utilise ma fonction dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure TForm1.FMemo1KeyDown(Sender: TObject; var Key: Word;

le caratère dans la variable VG_str1 n'est pas supprimer, qui est bien pour moi, ainsi après je peut faire une décision que je lui donne...

Merci et bonne-soirée

[Ardely]

Bonjours,
Je viens de faire un teste tout simple qui ne fonctionne pas pour supprimer les
caractéres, seul les touches flêches, suppressions fonctionne( ils sont déactiver biensûre).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
// example radicale de ne rien pouvoir écrire !
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Key := 0;
end;

Comment dois-je faire pour ne pas avoir la possibilité d'écrire avec cette procedure.
Merci beaucoup pour les informations, Salutations.

[Ardely]

Bonsoir,
Voici ce que je conclus:
Dans un OnKeyDown, est appelé quand une des touches du clavier est pressée et agi seulement sur les codes non visuels. et ne réagit pas sur les caractères a..z ou 0..9
Dans un OnKeyUP de même que OnKeyDown a l'exception que la touche réagit seulement en relâchant la touche.
Dans un OnKeyPress, est appelé quand une touche est pressée et correspond à un code ASCI.

Donc si je veux que les caractères a..z ne sois pas prise en compte je ne peut pas utiliser OnKeyDown ou OnKeyUP!!


Salutations.

[Gilbert Geyer]

Bonjour,

Pour désactiver la prise en compte d'une touche-clavier par un tMémo ou un tRichEdit, etc il faut avant tout basculer à "True" la propriété "KeyPreview" de la Form qui contient le champ de saisie et dans ce cas c'est la Form qui intercepte l'évènement afin qu'il ne soit pas pris en compte dans le champ de saisie.

Ensuite j'utilise une procédure du type suivant :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// a) pour désactiver toutes les touches :
key:=0;
// b) pour ne désactiver que certaines touches :
case key Of
35 : {Touche Fin} key:=0;
36 : {Touche Deb} key:=0;
37 : {Flèche vers gauche} key:=0;
38 : {Flèche vers haut} key:=0;
39 : {Flèche vers droite} key:=0;
40 : {Flèche vers bas} key:=0;
46 : {Touche Suppr} key:=0;
65..90 : {'A'..'Z'} key:=0;
// et ainsi de suite
//else Showmessage(IntToStr(key)); <-- me sert à vérifier la valeur de key associée à chaque touche
end;
end;

En fait cette procédure n'a d'intérêt que si l'on ne veut désactiver que certaines touches, car pour verrouiller la modification du texte qui figure dans un RichEdit il suffit de mettre sa propriété ReadOnly (= Lecture seule) à True.