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 :
J'ai donc voulu mettre :
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
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 :
Merci,
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;
Daniel
Partager