Annuler par la touche Echap

**rasta girl** · 09/05/2006, 16h31

Voilà, j'ai une boîte de dialogue, j'aimerais pouvoir la fermer sans rien valider en appuyant sur la touche Echap (Esc).

**Lung** · 09/05/2006, 16h33

Utilise un BitBtn avec Kind = bkCancel

**evarisnea** · 09/05/2006, 17h09

salut,
tu peux aussi utiliser un TButton, sa propriété Cancel à True, et dans l'evènement OnClick de ce bouton tu met le code:

Code :

self.Close();

une autre solution est de mettre la propriété KeyPreview de ta form à true et dans l'évènement OnKeyPress tu met le code:

Code :

if Key = #27 then self.close();

**Reisubar** · 09/05/2006, 23h01

1. Propriété KeyPreview du form à True.
2. Dans OnKeyDown, tu testes si la touche est ESC et si oui tu fermes la fenêtre :

Code :

1
2
if Key = VK_ESCAPE then
  Close();

**edam** · 10/05/2006, 02h15

Envoyé par evarisnea

salut,
tu peux aussi utiliser un TButton, sa propriété Cancel à True, et dans l'evènement OnClick de ce bouton tu met le code:
[/code]

Envoyé par Reisubar

1. Propriété KeyPreview du form à True.
2. Dans OnKeyDown, tu testes si la touche est ESC et si oui tu fermes la fenêtre :

Code :

1
2
if Key = VK_ESCAPE then
  Close();

si c'est une boite modal utlise plutot

Code :

modalresult:=2 // ou autre >1

et a toit de vérifier au retoure de votre apel
par example

Code :

1
2
3
4
5
6
 
  case dilog.showmodal then
     1:..;  //clik sur ok
     2:...;//clik sur annuler
 
  end;

**rasta girl** · 10/05/2006, 09h53

Ah yes c'est parfait tout ça, je n'avais pas mis la propriété KeyPreview à true. Sinon plutôt que ça :

Code :

1
2
if Key = VK_ESCAPE then
  Close();

j'ai utilisé ce code

Code :

1
2
if(Key = Word(VK_ESCAPE)) then
   ModalResult := 2;

Merci

Delphi