Salut les developpeurs
j'ai essayer d'intercepter la touche d'echape sur ma forme mais elle ne fonctionne pas sur delphi 2007.
J'ai metté la propriété KeyPreview de la fiche à True.
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin // Un appui sur ESC émet un caractère #27. If (Key=Char(VK_ESCAPE)) Then Close ; end;
Partager