Discussion :

[senv33]

Bonjour,

J'ai créé un ttreeview et au moment de l'édition, je fais appel à l'évènement onEdited pour enregistrer les modifications. Bref tout cela fonctionne bien.

Le problème c'est que je voudrais crée un raccourci clavier, c'est à dire qu'au lieu de double cliquer sur l'élément sélectionné, je voudrai simplement qu'on presse une touche pour faire appel à la procédure.

Pouvez vous m'aider ?

Merci d'avance

[popo]

Sur le OnKeyPress, récupérer l'élement dans le treeview et lancer la procedure voulue.

Le mieux étant de ne pas déclencher l'évenement OnDblClick mais d'externaliser ce qu'il fait dans une procedure puis d'appeller cette procedure

[senv33]

merci j'ai réussi.

le problème qui se pose maintenant, c'est comment attribuer les touches F1,F3,F2 etc...

Cela fonctionne bien pour les lettres mais le code VK_F2 qui correspond à la touche F2, le compilateur n'en veut pas

existe t'il un moyen pas trop complexe ?

[Jeankiki]

Salut,
Tu dois faire l'appel de la touche VK_F2 dans le OnKeyDown et pas dans le OnKeyPress.

[Rayek]

Petite manipulation beaucoup plus simple.

1- Tu poses un TMainMenu sur la form
2- Tu créé un item dans ce menu qui tu appelles comme bon te semble
3- Dans les propriétés de ce menu, tu sélectionnes ton raccourci (Dans ShortCut tu mets F2 par exemeple) et tu mets Visible à False.
4- tu codes ce que tu veux dans le onclick du menu.

Et voila tu as un raccourci clavier sans se prendre la tête

[senv33]

jeankiki, ta méthode ne fonctionne pas.

merci rayek, ça marche bien

[Charly910]

Bonjour,

teste ceci, cela doit fonctionner :

Code :

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

1
2
3
4
5
6
7
8
procedure TF_Princ.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key = VK_F2	then
      begin
         MessageDlg('Appui sur F2', mtInformation, [mbOK],0);
     end;
end;

Il faut aussi mettre la propriété KeyPreview de ta fiche à True

Cordialement

Charly