Discussion :

[xenos]

Bonjour,

J'ai un bête problème ...

J'ai un label, je veux qu'on ne puisse y introduire que des lettres (majuscules et minuscles) ainsi que des chiffres et des tirets ( - ).

Le problème survient lorsque je veux utiliser une combinaison avec ctrl, genre ctrl+v ou ctrl+c. Dans ces cas là, il refuse de copier, couper, ...

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Edit_DomaineKeyPress(Sender: TObject; var Key: Char);
begin
  //#8 = supprimer
  //#45 = - (tiret)
  If not (key  in ['A'..'Z','a'..'z','0'..'9',#8, #45]) then
    begin
      key := #0;
    end;
end;

J'ai bien essayé de trouver la valeur de ctrl en ASCII, mais j'arrive pas à la trouver ...

D'avance merci pour vos réponses.

[Pedro]

Salut
Une solution serait de passer par OnKeyDown ou Up et d'utiliser la Shift:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Edit_DomaineKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //#8 = supprimer
  //#45 = - (tiret)
  If (not (Chr(key)  in ['A'..'Z','a'..'z','0'..'9',#8, #45])) or ([ssCtrl] in Shift) then
  begin
    key := #0;
  end;
end;
end;

Voila

[Graffito]

Bonjour,

On peut aussi dans l'événement Onchange de l'Edit supprimer les caractères indésirables (autres que les lettres, chiffres, ...).