Discussion :

[Duan]

J'ai 40 boutons sur ma fiche et j'aimerais pouvoir, avec le clavier inscrire le nom d'un de ceux-ci, disons dans un TEdit, et simuler un click sur celui-ci avec la touche Entrée. Ex: TButton1.caption := 'A1' ; en tapant A1 suivis de Entrée, on déclancherait la procédure: TButton1Click:

J'ai essayé plusieurs choses mais sans résultats valable. Y a t'il quelqu'un qui pourrait m'aider S.V.P.

merci

Duan

[dvarrel]

en utilisant la procedure onkeydown du Tedit

Code :

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

1
2
3
4
5
6
7
 
for i:=0 to ComponentCount-1 do
begin
if components[i] is tbutton then
if (components[i] as tbutton).Caption=edit1.Text then
(components[i] as tbutton).Click;
end;

[Linkin]

ou la fonction FindComponent

[Ludo_360]

tu peux utiliser le shortcut de ta form principale:

ensuite tu détermine chaque raccourci de chaque touche:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin

// appui sur une touche
//IsShift := GetKeyState(VK_SHIFT) < 0; // Touche Shift appuyée

case Msg.CharCode of
Ord('A'): begin ButtonClick(Buttona); Handled:= True; end;
Ord('B'): begin ButtonClick(Buttonb); Handled:= True; end;
Ord('C'): begin ButtonClick(Buttonc); Handled:= True; end;
Ord('D'): begin ButtonClick(Buttond); Handled:= True; end;
Ord('E'): begin ButtonClick(Buttone); Handled:= True; end;
Ord('F'): begin ButtonClick(Buttonf); Handled:= True; end;
Ord('G'): begin ButtonClick(Buttong); Handled:= True; end;
Ord('H'): begin ButtonClick(Buttonh); Handled:= True; end;
Ord('I'): begin ButtonClick(Buttoni); Handled:= True; end;
Ord('J'): begin ButtonClick(Buttonj); Handled:= True; end;
Ord('K'): begin ButtonClick(Buttonk); Handled:= True; end;
Ord('L'): begin ButtonClick(Buttonl); Handled:= True; end;
Ord('M'): begin ButtonClick(Buttonm); Handled:= True; end;
Ord('N'): begin ButtonClick(Buttonn); Handled:= True; end;
Ord('O'): begin ButtonClick(Buttono); Handled:= True; end;
Ord('P'): begin ButtonClick(Buttonp); Handled:= True; end;
Ord('Q'): begin ButtonClick(Buttonq); Handled:= True; end;
Ord('R'): begin ButtonClick(Buttonr); Handled:= True; end;
Ord('S'): begin ButtonClick(Buttons); Handled:= True; end;
Ord('T'): begin ButtonClick(Buttont); Handled:= True; end;
Ord('U'): begin ButtonClick(Buttonu); Handled:= True; end;
Ord('V'): begin ButtonClick(Buttonv); Handled:= True; end;
Ord('W'): begin ButtonClick(Buttonw); Handled:= True; end;
Ord('X'): begin ButtonClick(Buttonx); Handled:= True; end;
Ord('Y'): begin ButtonClick(Buttony); Handled:= True; end;
Ord('Z'): begin ButtonClick(Buttonz); Handled:= True; end;
vk_space: begin btnSpaceClick(btnSpace); Handled:= true; end;
vk_shift: begin btnshiftClick(btnshiftd); Handled:= true; end;
vk_back: begin pnl_returnClick(pnl_return); handled:= true; end;
else
showmessage('touche non répertoriée'); handled:= true;

end;
end;

En utilisant le raccourci clavier ce sera plus rapide qu'avec les fonctions OnKeyDown et autres, donc tu récupère ta touche entrer par exemple.

[Duan]

Merci à tous !!!

J'ai pris la solution de DvArrel, simple et efficace. J'avais essayé avec la fonction findcomponent mais je m'était complètement perdu.
Je garde en mémoire(écrite) la solution de Ludo360; Elle réagit rapidement à l'appui d'une touche mais peut-on combiner + d'une touche avec cette solution Ex: A1 (touches A+1).

Même si je repose une question supplémentaire, je marque ce post comme résolu car ma demande initiale l'est; je vérifirai quand même sur celui-ci pour voir s'il y a de nouveau développements.

encore une fois mercif

Duan

[Ludo_360]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
 
// appui sur une touche
//IsShift := GetKeyState(VK_SHIFT) < 0; // Touche Shift appuyée
 
case Msg.CharCode of
if not IsShift then  // la touche shift n'est pas appuyée
   Ord(5): begin ButtonClick(Buttonparenthèse_ouvrante); Handled:= True;
 end else
   Ord(5): begin ButtonClick(Button5); Handled:= True;  
else
showmessage('touche non répertoriée'); handled:= true;
 
end;
end;