enlever le son lors de l'appui sur un bouton avec touche EnterRésolu

Question

Bonjour,

Je travaille avec Delphi 5 et j'ai un son (system je pense) lorsque j'appui sur un bouton (TBitBtn) avec la touche Entrée, est-ce que quelqu'un sait comment enlever ce son ?

Merci d'avance.

japee · Accepted Answer

if (Key = #13) then
  begin
    Key := #0;
    BitBtnValiderClick(Sender);
  end;

japee · Answer

Si le focus est sur le TBitBtn quand tu presses la touche Entrée, tu ne devrais normalement pas avoir de son système.
Regarde où est le focus à ce moment là, et dans l'évènement OnKeyPress de de composant, tu peux placer ce code :

if Key = #13 then Key := #0;


Bonne prog'   :-p

cs_ludm · Answer

En fait je suis dans un Tedit et j'ai mis ce code sur le OnKeyPress de l'Edit pour que quand j'appuie sur Entrée, ca simule un clic sur le bouton

if(Key=#13)then
Begin
BitBtnValiderClick(Sender);
end;

Comment dois-je faire pour plus avoir le son ?

cs_ludm · Answer

Merci ca fonctionne nickel.

C'est quoi le Key := #0 ?

Loulibier · Answer

Salut ludm,
  Le Key correspond à la valeur Décimale de la touche que tu presses (#13 $0D VK_Return) Afin d'évité le son system il suffit de simuler une autre touche que la touche Entrée. d'ou Key := #0 simule l'appuye sur une touche nul.

Bonne Prog,

Olivier.

Enlever le son lors de l'appui sur un bouton avec touche Enter

5 réponses

Votre réponse