Discussion :

[kevinou55]

bonjour,

je voudrais que mon application reconnaisse les touches du clavier. J'ai essayé avec onKeyDown, onKeyPress mais vu que je suis sur un ordinateur portable, je n'ai pas de pavé numerique donc les controles, memes sur les valeurs ASCII, ne fonctionnent pas...
Quelqu'un aurait-il une solution ??
Merci d'avance

Kevin

[Archimède]

çA ne marche pas ?

Touche A par exemple :

Code :

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

1
2
3
4
5
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#$41 then caption:='gagné'; // TOUCHE A PAR EXEMPLE
end;

A+

PS: testé sur portable.

[Sub0]

Si tu as besoin de détecter toutes les touches du clavier, même les touches de contrôle, il faut utiliser un hook. Sinon, plus simplement, utiliser l'evènement OnMessage ou un Timer pour les objets ne disposant pas d'évènement clavier. En tous les cas, si tu veux pouvoir détecter des combinaisons de touches, il faut enregistrer l'état de chacune dans un booléan :

http://www.developpez.net/forums/sho...php?t=61903#11

[guillemouze]

regarde du cote de KeyPreview sur ta form principale

[kevinou55]

bon en fait je pensais que le probleme venait du fait que je ne pouvais pas acceder aux touches numeriques (celles au dessus des lettres) mais en fait meme le code de Archimède ne fonctionne pas...
je vais étudier vos propsitions

Merci bien

[Sub0]

acceder aux touches numeriques (celles au dessus des lettres)

Attention, il faut (bien entendu) que le VerrNum (ou VerrMaj) soit actif...
A noter que sur un clavier Qwerty, c'est différent, VerrMaj est désactivé pour obtenir les nombres (enfin il me semble).
Pour éviter les erreurs dans le cvas où ton programme serait utilisé par un autre type de clavier que le tien, pense à utiliser les constantes VK plutôt que de comparer les touches avec leur correspondance nombre ou caractère.

PS: J'ai retrouvé ce topic où je détaille un peu plus ce que je disais.

[kevinou55]

C'est bon !!!
Désolé j'avais simplement oublié de metre KeyPreview a True...

Merci pour votre aide

[Archimède]

if key=#$31 (le 1) ça marche ? (Testé...) pour répondre à ta remarque concernant ton post à mon égard.
AH, ok pour ton dernier post. (je viens de voir...)

rq: 0=>#$30 1=>#$31 ,32,33,.....9=>#$39

[kevinou55]

Le probleme avec les contante VK c'est qu'elles ne recupèrent pas les lettres par exemple, si ??
ce ne sont pas que les touches de controle ?