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.