Discussion :

[hlmhv]

Salut à tous,

Je suis interloqué par un bête bouton: le dernier TBitBtn que j'installe refuse d'être à la fois un BtnClose ET de type Cancel.

La fiche précédente, maîtresse, n'a pas ce souci-là. Ne puis-je pas commander la fermeture d'une fenêtre ayant le focus via la touche 'ESC' si une fenêtre momentanément en arrière-plan a déjà cette possibilité?

D2007 est bizarre, mais bizarre...

Henri

[Droïde Système7]

Salut,

Ne puis-je pas commander la fermeture d'une fenêtre ayant le focus via la touche 'ESC' si une fenêtre momentanément en arrière-plan a déjà cette possibilité?

Et en changeant de méthode via le OnKeyPress :

Code :

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

1
2
3
4
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key =  #27 then close; 
end;

KeyPreview de la Form à true.

[hlmhv]

Merci de cette réponse: elle me paraît utile et logique, hélas! Elle ne m'explique pas pourquoi D2007 réagit comme cela.

Bon dimanche!

Henri

[Droïde Système7]

Merci de cette réponse: elle me paraît utile et logique, hélas! Elle ne m'explique pas pourquoi D2007 réagit comme cela.

Bon dimanche!

Henri

Salut Henri,

A noter que même sur Delphi7 :

Code :

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

if key =  #27 then ModalResult := mrCancel;

ne fonctionne que sur la fiche principale.

Sur les fiches secondaires, faut mettre un "close".