Comment faire fonctionner une Touche de Fonction? [Résolu]
Lunasoft75
Messages postés samedi 28 juin 2008Date d'inscription
16 août 2011
Dernière intervention
-
3 janv. 2009 à 14:58 - Dernière réponse : Lunasoft75
Messages postés samedi 28 juin 2008Date d'inscription
16 août 2011
Dernière intervention
- 5 janv. 2009 à 18:36
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.
Cirec4231
Messages postés vendredi 23 juillet 2004Date d'inscription
3 août 2018
Dernière intervention - 3 janv. 2009 à 15:30
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
a aidé 97 internautes ce mois-ci