Discussion :

[ddubois]

Je souhaite ajouter des raccourcis clavier (Ctrl+numéro de 0 à 9) au 10 premiers sous-menu dynamique stockés dans un fichier .ini lu au démarrage de mon appli.
Pour ce faire, j'utilise la commande suivante dans une boucle :

Code :

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

1
2
3
 
      {Ajouter un raccourci-clavier :}
      NewItem.shortcut := ShortCut(Word('1'),[ssCtrl]); //ex : Ctrl+1

J'ai donc voulu mettre :

NewItem.shortcut := ShortCut(Word(IntToStr(I)),[ssCtrl]);

mais cela génère une erreur. Comment faut-il s'y prendre pour incrémenter la valeur numérique du raccourci ?

Voici mon code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Keys := TStringList.Create;
    for I := 0 to Keys.Count - 1 do
    begin
      NewItem  := TMenuItem.Create(Self);   
      NewItem.Caption := Keys.Strings[i];
      NewItem.Tag := i; 
      NewItem.Hint := FileIni.ReadString('Shortcut', Keys[i], ''); //Stock les chemins dans le Hint de chaque MenuItem !
      mnuShortcuts.Add(NewItem);
      {Ajouter un raccourci-clavier :}
      NewItem.shortcut := ShortCut(Word('1'),[ssCtrl]);
      NewItem.OnClick := mnuEvalAAMClick;
    end;
  end;

Merci,

Daniel

[ShaiLeTroll]

Word(IntToStr(I)), qu'est ce que ça fait ? ça transtype une chaine courte constante en word ? ça me parait louche ...

Je tenterais pour avoir des raccourcis de 0 à 9 par exemple, ...

Code :

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

NewItem.shortcut := ShortCut(Ord('0') + I,[ssCtrl]);

[ddubois]

ok ca marche pour l'affichage dans le menu !
Mais par contre aucune réaction lorsque je fais le raccourci-clavier, c'est normal ? Faut-il un traitement particulier ?
Habituellement c'est automatique, non ?

Denis

[ShaiLeTroll]

Ben, normalement, cela devrait fonctionner ... j'utilise plus souvent les raccourcis via ALT + ... avec le _ qui indique la lettre que le ShortCut, par manque de pratique, je ne peux pas te répondre ...