Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Touches

Voici un tableau avec les instructions et leurs descriptions pour la methode Key en Delphi.

 Instruction

 Description
 VK_LButton Bouton gauche de la souris.
 VK_RButton Bouton droit de la souris.
 VK_MButton Bouton au centre de la souris.
 VK_Cancel Arrêt du programme.
 VK_Back Retour arrière.
 VK_Tab Tabulation.
 VK_Return Touche entrée du clavier.
VK_Shift Touche shift du clavier.
 VK_Control Touche de contrôle Maj.
 VK_Menu Touche de contrôle Alt.
 VK_Pause Touche pause.
 VK_Escape Touche Echap.
 VK_Space Barre d'espace.
 VK_Prior Touche page haut.
 VK_Next Touch page bas.
 VK_End Touche Fin.
 VK_Home Touche début.
 VK_Up Flèche du haut.
 VK_Down Flèche du bas.
 VK_Left Flèche de gauche.
 VK_Right Flèche de droite.
 VK_SnapShot Touche impression d'écran.
 VK_Insert Touche Inser(Insérer).
 VK_Delete Touche Suppr (Supprimer).
 VK_Numpad0 Touche 0 du pavé numérique.
 VK_Numpad1 Touche 1 du pavé numérique.
 VK_Numpad2 Touche 2 du pavé numérique.
 VK_Numpad3 Touche 3 du pavé numérique.
 VK_Numpad4 Touche 4 du pavé numérique.
 VK_Numpad5 Touche 5 du pavé numérique.
 VK_Numpad6 Touche 6 du pavé numérique.
 VK_Numpad7 Touche 7 du pavé numérique.
 VK_Numpad8 Touche 8 du pavé numérique.
 VK_Numpad9 Touche 9 du pavé numérique.
 VK_Multiply Touche * du pavé numerique.
 VK_Add Touche + du pavé numérique.
 VK_Subtract Touche - du pavé numérique.
 VK_Divide Touche / du pavé numérique.
 VK_Separator Touche Entrée du pavé numérique.
 VK_Decimal Touche du pavé numérique.
 VK_F1 Touche F1.
 VK_F2 Touche F2.
 VK_F3 Touche F3.
 VK_F4 Touche F4.
 VK_F5 Touche F5.
 VK_F6 Touche F6.
 VK_F7 Touche F7.
 VK_F8 Touche F8.
 VK_F9 Touche F9.
 VK_F10 Touche F10.
 VK_F11 Touche F11.
 VK_F12 Touche F12.
 VK_Numlock Touche NumLock (pavé numérique).
 VK_Capital Touche Capslock.
 Vk_Scroll Touche ScrollLock.


Exemples d'utilisations

Ajouter un composant TLabel.

procedure TForm1.FormKeyDown(Sender: TObject; varKey:Word;Shift: TShiftState);
begin
if
Key=(VK_Return) then //touche à appuyer

Label1.Caption:='Bravo'; //instruction à réaliser
end;


KeyDown    [ 07-08-2001 ]
 Détection lors de l'appuie d'une touche.
Télécharger :  [4 Ko] [Télécharger key1.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/
 

Il est également possible lorsque l'application est réduite, d'effectuer une opération lors d'un appuit sur la touche F12.
Voici un exemple montrant cette autre utilisation.


procedure TForm1.Button1Click(Sender: TObject);
Var Bool: Boolean;
touche: Byte;
begin
Touche := VK_F12; //Choix de la touche F12
Application.Minimize; //Minimise l'application
Application.ProcessMessages;
Bool := (GetAsyncKeyState(Touche) and 1 = 1);
Repeat Application.ProcessMessages;
Bool := (GetAsyncKeyState(Touche) and 1 = 1);
Until Bool or Application.Active;
If Bool then
Begin
//Code source à insérer
Application.Restore; //Restaure l'application
end;
end;

Détection d'une touche    [ 02-10-2001 ]
 Lorsque vous appuyez sur la touche F12, le programme exécute une opération.
Télécharger :  [5 Ko] [Télécharger key3.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/
 

Tous droits réservés - Contacts
Haut de la page