Discussion :

[Marc_3]

Bonjour, encore moi,

J'ai un souci avec l’événement suivant:

Code :

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

1
2
3
4
5
6
7
 
 
procedure TDVIEW1.FormKeyPress(Sender: TObject; var Key: Char);
   begin
   if Key = VK_ESCAPE
   then BCancelClick(self);
   end;

Comme d'habitude je travaille sur des exemples trouvés ici et la.
Le code ci-dessus doit fermer une fenêtre ou je fais des saisies avant de les sauver dans un DataGrid.

J'ai un message d'erreur qui dit: type incompatible avec la ligne
then BCancelClick(self).

Pareil avec ce test:

then begin
ShowMessage('Touche escape')
end





Delphi ne trouve pas en complexion du texte la constante VK_ESCAPE.

Est-ce qu'il y a une bibliothèque a charger ou je ne sais quoi a faire??

Merci d'avance pour votre aide

Marc_3

[e-ric]

Salut

- pour BCancelClick(self);, il vaudrait mieux passer l'objet délégataire (btnCancel par exemple) plutôt que la fiche déléguée (ici self), si ton code tient compte de la nature du paramètre Sender, tu peux avoir des surprises.

- pour qu'un gestionnaire FormKeyPress intercepte bien les actions au clavier, tu dois affecter True à la propriété KeyPreview de la fiche.

- de mémoire, VK_ESCAPE est défini dans l'unité Windows.

Précision : j'ai pas Delphi au boulot pour aller fouiller dans les sources.

[Invité]

Effectivement les touches VK_ sont dans "Winapi.Windows"

[Marc_3]

C’était bien un problème avec la propriété KeyPreview de la fiche.
Merci pour la réponse, c'est résolu

marc_3