associer un bouton en delphi6 a une touche clavierRésolu

Question

bonjour !
j'ai programmé une procedure de calcul dans un bonton en delphi6 , je voudrai associer mon bouton (bitbtn) à  la touche (+) du clavier pour que l'utilisateur appuye sur la  touche (+)  au lieu d'un clic souris chose qui est plus pratique car l'utilisateur saisie plusieurs montant appartenant a la meme personne pour qu'a la fin en recupere le montant final cumulé.

japee · Accepted Answer

Salut,

A priori, je placerais l'interception de la touche "+" dans l'évènement OnKeyPress de la zone de saisie, ou dans celui du Form (dans ce dernier cas ne pas oublier KeyPreview = True) :

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = '+' then
  begin
    Key := #0;
    { les 3 instructions suivantes sont valides }
    //BitBtn1Click(nil);
    //BitBtn1.Click;
    Calcul; // ...ou appel direct de ta procedure
  end;
end;

Bonne prog'

inegliz · Answer

merci beaucoup japee ton aide m'a été trés precieuse, ton code marche a merveille.

Associer un bouton en delphi6 a une touche clavier

2 réponses

Votre réponse

Discussions similaires