[Delphi] Lorsqu'on appuye sur entree, faire s'exécuter un bouton !!!!!

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Lorsqu'on appuye sur entree, faire s'exécuter un bouton !!!!!

juju_le_barbare

Vous fiez pas aux apparences !

bonjour,

Par exemple je créé 2 zones de texte, puis en dessous un bouton 'OK'.
J'aimerais que lorsque l'utilisateur appuye sur 'Entree', il appuie en fait sur le bouton OK, sans la souris, et sans utiliser la tablation...
C'est sûrement une gestion du focus ...

Merci beaucoup

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

Publicité

JWhy

je peux plier (héhé)

Tu as une propriété "Default" sur le TButton.
Il suffit de la passer a "True" pour que ca fasse ce que tu veux!

---------------
www.alliancefrancophone.org ... Home is where the heart is

juju_le_barbare

Vous fiez pas aux apparences !

viiz a écrit a écrit :

Si tu veux en gérer plusieurs, dans l'évènement OnKeyDown du bouton tu peux mettre ca:

if Key = VK_RETURN then
ButtonkivabienghClock(Self);

:hello:

Merci de vos réponses ! je vais voir ça tout de suite !

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

juju_le_barbare

Vous fiez pas aux apparences !

ca marche impec la 1ere méthode, mais la 2eme tu pourrais mieux me l'expliquer STP ?

VK_RETURN c'est la touche 'enter' ?

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

JWhy

je peux plier (héhé)

oui, VK_RETURN correspond a la touche "Entrée"

Par contre, viiz, pour que le bouton recoive onKeyDown, il faut qu'il ait le focus, non ?

une facon de contourner le pb serait de mettre la propriété "KeyPreview" de la Form a "True" (tout les evenements clavier sont d'abord déclencher au niveau de la form) et de mettre le code dans le onKeyDown de la form et non du bouton.

Pour tester ca, Juju, ouvre un nouveau projet, pose tes 2 champs TEdit et 4 TButton (pas la peine de les renommer) et dans le l'évenement onClick des boutons, fait un ShowMessage indiquant sur quel bouton tu te trouves.

Par ex:

Code :

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Button 1');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Button 2');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage('Button 3');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
showmessage('Button 4');
end;

Puis dans le OnKeyDown de la form, gere les différentes "key" comme viiz a proposé:

Code :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_MENU then
Button1Click(nil);
if Key = VK_SHIFT then
Button2Click(nil);
if Key = VK_CONTROL then
Button3Click(nil);
if Key = VK_RETURN then
Button4Click(nil);
end;

Donc de cette facon, tu vas déclencher la fonction associée a l'évenement OnClick du bouton en fonction de la touche saisie

Dans ce cas, la touche Alt affichera "Button 1", la touche Shift affichera "Button 2", la touche Control affichera "Button 3" et la touche Entrée affichera "Button 4".

---------------
www.alliancefrancophone.org ... Home is where the heart is

juju_le_barbare

Vous fiez pas aux apparences !

OK Merci c'est ce que je vais faire, mais j'aimerais savoir (oui je sais je suis curieux ;-) à quoi correspond 'nil' dans :

Code :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_MENU then
Button1Click(nil);
if Key = VK_SHIFT then
Button2Click(nil);
if Key = VK_CONTROL then
Button3Click(nil);
if Key = VK_RETURN then
Button4Click(nil);
end;

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

antp

Super Administrateur
Champion des excuses bidons

dans cet exemple, nil c'est l'objet qui a déclanché l'événement (le Sender que tu reçois dans la plupart des événements)
C'est pratique si par ex tu as trois boutons reliés à la même fonction, tu spécifies une valeur différente pour leur propriété "tag" et tu fais un truc du genre:

Code :

procedure TForm1.ButtonClick(Sender: TObject);
begin
with Sender as TComponent do
begin
case Tag of
1: ...
2: ...
3: ...
end;
ShowMessage(Format('On a cliqué sur le bouton appelé "%s"', [Label]));
end;
... ici on place le code commun aux trois ...
end;

bon ici l'exemple est un peu bidon, mais ça m'a déjà servi (dans des Menus ou des ActionList par exemple).

[edtdd]--Message édité par antp--[/edtdd]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

juju_le_barbare

Vous fiez pas aux apparences !

Merci beaucoup !

---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com

FORUM HardWare.fr

Programmation

[Delphi] Lorsqu'on appuye sur entree, faire s'exécuter un bouton !!!!!

Sujets relatifs
[VC++]Bouton qui lance une autre applis	[Delphi] Un composant qui énumère les lecteurs ?
[Delphi]Chat par dessins ....	[Delphi] MoDiFiEr Le ReGiStRe SVp !!!!
Bouton radio dans un formulaire	java ou delphi
[Delphi] un equivalent aux hostvariable du Pro*C ?	[Delphi] A propos des trackbar SVP !!!
[Delphi] Utiliser une base de donnée (Interbase) avec Delphi 6 perso.	[DELPHI] impression du resultat d'une requete
Plus de sujets relatifs à : [Delphi] Lorsqu'on appuye sur entree, faire s'exécuter un bouton !!!!!

Page générée en 0.042 secondes