Discussion :

[Sundark]

Bonjour, j'aimerais attribuer le bouton BtnDelCompte à la touche Delete (supprimer) du clavier, de tel sorte à ce que l'utilisateur sélectionne la valeur et n'ai pas a cliquer sur le bouton "Supprimer le compte". (deux clic)

mais je veux aussi attribuer "entrer" à mon bouton BtnCreationCompte et "Button1" que je n'ai pas encore renommer^^

Dans la FAQ delphi, il y a un code

Code :

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

1
2
3
4
if (GetKeyState(VK_CAPITAL) and 1) = 0 then 
begin 
  //Traitement... 
end;

Si par exemple je mets dans mon Form.Create

Code :

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

1
2
3
4
if (GetKeyState(ENTER) and 1) = 0 then 
begin 
  //Traitement... 
end;

Oula je m'arrête, je pense que je vais utiliser tout simplement "Onkeypress" non ?

[Gilbert Geyer]

Bonjour,

C'est pas bien clair ta question.
Veux-tu pouvoir faire un truc du style "If ToucheDeleteAppuyée then BtnDelCompteClick(Sender)" ?

A+

[Sundark]

oui voilà (j'était entrin d'éditer^^)

[Rayek]

Pour le delete :

1- Tu poses un TActionList sur la form
2- Tu double-clics sur le TActionList
3- Tu crées une nouvelle action.
4- Tu modifies la propriété ShortCut afin de mettre la touche que tu veux
5- Tu double-clics sur l'évènement OnExecute de l'action.
6- Tu saisis le code suivant :

Code :

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

1
2
3
4
5
 
procedure TForm1.Action1Execute(Sender: TObject);
begin
  BtnDelCompte.click;
end;

Pour l'entrée :

Tu mets la propriété Default à True

[Sundark]

Je vais faire le boulet
Quelles sont les valeurs des touches "DEL" et "ENTER", si ce n'est pas déjà "DEL" et "ENTER" ??

Sinon, merci pour ce petit tutoriel complet, je vois comment faire là =)


Edit, j'ai rien dit, la liste défilante les a déjà toutes, merci beaucoup !

Bien voilà ! Ce logiciel m'en aura fait beaucoup apprendre et ce forum aussi !

[Gilbert Geyer]

Re-bonjour,

Dans ce cas :
1) Fixer (dans l'Inspecteur d'objets) la valeur de KeyPreview de la Form à True,
2) Créer la procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
3) Dans cette procédure ajouter : if Key=VK_DELETE then BtnDelCompteClick(Sender);
4) Faire idem pour la touche "entrer" (if Key=VK_RETURN Then ...)

Je viens de voir que pendant que je réponds tu as ajouté un EDIT : dans le Form.Create ça ne sert à rien. On n'utilise le Form.Create que pour initialiser des trucs.

A+

EDIT : posts croisés : ça bouge vite ici.

[Sundark]

J'ai finalement utilisé un TActionList comme me l'a conseillé Rayek, ce qui est plus "normal".

Merci de m'avoir renseigner sur la deuxième possibilité tout de même.

[Gilbert Geyer]

Re-bonjour,

Ce qui est bien avec Delphi c'est qu'il y a souvent plusieurs démarches qui peuvent convenir.

A+