Comment faire fonctionner une Touche de Fonction?Résolu

Question

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

Cirec · Accepted Answer

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="" />

Lunasoft · Answer

Merci Cirec,
C'est juste une ligne de commande que je n'avais jamais découvert. C'est gentil...Merci.

LunaSoft

Comment faire fonctionner une Touche de Fonction?

2 réponses

Votre réponse

Discussions similaires