L'activation de la dite touche "Escape"Résolu

Question

Bonjour!

Dans mon evenement...
j'ai écrit ces codes afin de faire un filtre. Et après, je voudrai bien actualiser ma base de données en cliquant sur la touche "Escape". Au lieu de faire par exemple ceci avec ceci: 
...click
maBase.Filtered:= false;

voici mes codes:
calibration.Filter:='name_set=' +quotedstr(calibration.FieldValues['name_set']);
calibration.Filtered:= true;

responsibleSite_cons.Text:= calibration.FieldByName('responsible_site').asString;
calibrationHistory_cons.Text:= calibration.FieldByName('calibration_history').asString;

Merci

korgis · Accepted Answer

Salut,

La valeur de la touche Echap est VK_ESCAPE ou #27 selon que tu utilises l'évènement OnKeyDown ou OnKeyPress.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
    maBase.Filtered:= false;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    maBase.Filtered:= false;
end;

Delphi adoucit les moeurs.

f0xi · Answer

On actualise pas en pressant Echape (principe de quitter/annulation) mais avec :

Par ordre d'intuitivité de la touche :
ENTREE (Transmettre action)
F5 (actualiser ecran)
Y (Oui à la confirmation)
O (identique à Y)
V (valider action) 
TAB (suivant)

________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

cs_cantador · Answer

Bonsoir,

@divin1975:
merci de faire un effort pour mieux expliquer ton problème et placer un code
dans les balises prévues à cet effet.


cantador

divin1975 · Answer

Premièrement merci de vos remarques (@foxi, @cantador).

Au fait; je voulais dire qu'après avoir fait mon filtre. J'aimerai bien faire executer cette ligne de codes par exemple après avoir pressé sur la touche "Escape". Bien qu'elle fonctionne bien quand je la place dans un bouton:

Calibration.Filtered:= false;

Merci,
Divin1975

divin1975 · Answer

@Korgis
Tes codes fonctionnent en parfaite santé

cs_cantador · Answer

oui et il a placé ses codes dans les bonnes balises
c'est quand même plus agréable à lire..

cantador

cs_cantador · Answer

et dans cette optique, comme le dis f0xi, on utilise plutôt
une touche pour faire cette opération (F5 ou autre..)

ça me rappelle, un jour où j'ai par inadvertance, modifié
les touches de contrôle par défaut sous delphi..
une belle pagaille !

cantador

L'activation de la dite touche "Escape"

7 réponses

Votre réponse

Discussions similaires