Filtrage de touche en mode console
Leika
-
Leika -
Leika -
Bonjour,
Je voulais savoir si quelqu'un savait faire un filtrage des touches du clavier sur Delphi en mode console pour que qu'il y aie que les chiffre du clavier qui marche avec le backspace et le enter, comme par exemple
if not(key in ['0'..'9',#8]) then (en mode graphique)
begin
end;
Merci d'avance
Je voulais savoir si quelqu'un savait faire un filtrage des touches du clavier sur Delphi en mode console pour que qu'il y aie que les chiffre du clavier qui marche avec le backspace et le enter, comme par exemple
if not(key in ['0'..'9',#8]) then (en mode graphique)
begin
end;
Merci d'avance
A voir également:
- Filtrage de touche en mode console
- Jeux java itel touche - Télécharger - Jeux vidéo
- Mode avion - Guide
- Touche remanente windows - Guide
- Mode sécurisé samsung - Guide
- Mode d'emploi - Guide
2 réponses
si quelqu'un trouve comment faire je donne mon E-mail pour me contacter
rythmeandbeat110@hotmail.com
rythmeandbeat110@hotmail.com
J'ai crée une fonction mais il faut quand meme savoir l'utiliser après alors et c'est la que sa bute un peu merci pour votre aide.
Voila la fonction
uses
sysutils, windows;
function kbhit: integer;
var
h: tHANDLE;
nbr : LongWord;
r: tInputRecord;
begin
kbhit := 0;
nbr :=0;
h:= GetStdHandle(STD_INPUT_HANDLE);
PeekConsoleInput(h, r, 1, nbr);
if (nbr > 0) then
begin
ReadConsoleInput(h, r, 1, nbr);
if ((r.EventType = 1) and (r.Event.KeyEvent.bKeyDown)) then
begin
kbhit := r.Event.KeyEvent.wVirtualKeyCode;
end;
end;
end;
Voila la fonction
uses
sysutils, windows;
function kbhit: integer;
var
h: tHANDLE;
nbr : LongWord;
r: tInputRecord;
begin
kbhit := 0;
nbr :=0;
h:= GetStdHandle(STD_INPUT_HANDLE);
PeekConsoleInput(h, r, 1, nbr);
if (nbr > 0) then
begin
ReadConsoleInput(h, r, 1, nbr);
if ((r.EventType = 1) and (r.Event.KeyEvent.bKeyDown)) then
begin
kbhit := r.Event.KeyEvent.wVirtualKeyCode;
end;
end;
end;
