Comment faire fonctionner une Touche de Fonction? [Résolu]

Messages postés
75
Date d'inscription
samedi 28 juin 2008
Statut
Membre
Dernière intervention
16 août 2011
- - Dernière réponse : Lunasoft
Messages postés
75
Date d'inscription
samedi 28 juin 2008
Statut
Membre
Dernière intervention
16 août 2011
- 5 janv. 2009 à 18:36
Bonjour, Bonne et Heureuse Année 2009!

J'ai un code que j'ai jamais utilisé. C'est de faire fonctionné une touche de fonction (Par ex: F1.....F12).
A partir d'un Form, je peux appeler un autre Form de cette manière: Form2.showModal;
Et alors, comment pourrai-je appeler le même Form avec la touche F1par exemple. Franchement, je n'ai jamais fait ça avec Delphi.

Merci d'avance,
LunaSoft
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
4233
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 juillet 2019
32
3
Merci
Salut,

dans l'inspecteur d'objets tu mets KeyPreview à True;
puis dans l'onglet évènements tu double-cliques à la droite de OnKeyUp et tu complètes comme ceci :

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 Then
    ShowMessage('Touche F1 pressée');
end;

bien sur à la place de ShowMessage('Touche F1 pressée');
tu mets le code pour ouvrir ta fiche : Form2.showModal

 
@+
Cirec

<hr siz="" />

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 126 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Cirec
Messages postés
75
Date d'inscription
samedi 28 juin 2008
Statut
Membre
Dernière intervention
16 août 2011
0
Merci
Merci Cirec,
C'est juste une ligne de commande que je n'avais jamais découvert. C'est gentil...Merci.

LunaSoft
Commenter la réponse de Lunasoft