Discussion :

[netchip]

Bonjour,

Comment dans une TEDIT verifier quelle touche à etaits frapez mais SANS que le resulta du frape soit vue dans le TEDIT (ou l'empecher si par example on a besoin de 0 à 9 seulement ???)

Merci

[denokan]

essaye de placer ce bout de code dans l'évènement OnKeyPress de ton TEdit :

Code :

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

1
2
3
 
  Caption := Caption + Key;
  Key := #0;

[Rayek]

Voici un petite procédure 'OnKeyPress' pour un Tedit qui permet par exemple d'écrire que des valeurs décimales

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
// si la touche n'appartient pas aux valeurs alors on renvoi #0
   if not (Key in ['0'..'9',#8,'.',',']) then 
    Key := #0
  else
    // si la touche vaut . ou ,
    if (Key = '.') or (Key = ',') then  
      // est ce que le séparateur est déjà présent
      if Pos(DecimalSeparator,Tedit(Sender).Text) = 0 then 
        // Alors on ajoute le séparateur décimal par défaut
        Key := DecimalSeparator 
      else
        // sinon on renvoi #0 pour empecher la saisie
        Key := #0; 
end;

[netchip]

Merci MALTAR