vk_control en ASCII

Version imprimable

vk_control en ASCII

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:

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. :D

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

Code:

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

15/05/2006, 09h20
Graffito

Bonjour,

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