Fermeture de Form en appuyant sur Echap

Bonjour!

J'ai un petit problème.
J'ai fait un petit code pour que mes forms puissent se fermer à l'appui de la touche Echap, en ayant bien mis la propriété KeyPreview de ma form à true:

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall MaForm::FormKeyPress(TObject *Sender, char &Key) { if (Key == VK_ESCAPE) { ModalResult = mrCancel; Close();   } }

---

ça marche bien, mais le problème c'est que lorsque l'on appuie sur echap dans une liste déroulante qui est déroulée, la form se ferme.

Ma question est-donc, comment éviter cela?

J'ai essayé de tester la classe du paramètre Sender en ajoutant ce code :

Code:

---

if (!Sender->ClassNameIs("TLMDComboBox") && !Sender->ClassNameIs("TComboBox"))

---

Mais ça ne marche pas, cette méthode ne doit pas convenir...

Merci d'avance!

Bonjour,
Moi, j'utilise cela
void __fastcall TCouleurBati::FormShortCut(TWMKey &Msg, bool &Handled)
{
if (Msg.CharCode == VK_ESCAPE)
{
Handled=true;
Close();
}
}

Ce n'est pas une fenêtre modale, d'où pas de ModalResult.
C'est le paramètre Handled qui donne la priorité.
Si j'ai une combox ouverte, à la frappe de Escape, elle se ferme, à la frappe suivante c'est la fenêtre qui se ferme.

Complément, sauf erreur, si ModalResult est non nul, Close() est exécuté de toute façon, par contre il ne faut oublier delete, du la fenêtre a été créée avec un new.

En effet votre méthode a l'air beaucoup plus adapté au comportement que je recherche, merci beaucoup! :)