Discussion :

[skywaukers]

Bonsoir,

je viens de migrer un projet Firemonkey en Delphi 11.3. tout fonctionne bien sauf les touches de fonctions. Les touches F1, F2, etc sont inopérantes. Quelqu'un a eut le problème ?
Pour être sur que ce ne soit pas lié à mon projet, j'ai essayé de créer un nouveau projet tout bête : une fiche, une action avec un shorcut F2, un bouton auquel j'associe l'action. L'appui sur F2 est inopérant

C'est hyper important sur ce projet que cela fonctionne

Merci pour votre attention

@++
Dany

[pprem]

vais vérifier de mon côté

Les F1...F12 sous Windows ou une autre plateforme ?

[skywaukers]

Bonjour,

oui, il s'agit de la plateforme Windows. Pardon.

Merci

@++
Dany

[SergioMaster]

Bonjour,

J'ai fait le test également, même résultat les touches F1-F12 ne sont pas bien traitées

Le problème a déjà été signalé pour la version 11.2 RSP-39902
a priori c'est un traitement des shortcuts qui pose problème je cite

The bug is in FMX.ActnList.pas, line 679. In the "IsSameShortcut" function, it is checking to see if the key pressed matches a given shortcut. It tries to "Normalize" the key pressed by converting it to upper case:

{{ NormilizedKey := Ord(Chr(AKey).ToUpper);}}

This works great if the key pressed is a regular keyboard character.

But the integer values for F1 through F11 are 112 through 122. When converted to chars, they become 'p' through 'z'. Then are converted to uppercase 'P' through 'Z' and then back to integers 80 through 90.

So "IsSameShortcut" will always return false for function keys F1 through F11.

[SergioMaster]

En attendant un patch, voici ce qu'il est possible de faire.

1- ouvrir le fichier FMX.ActnList en cliquant dans la liste des uses, logiquement, il sera en lecture seule.
2- sauvegarder ce fichier dans le répertoire des sources de l'application, ce fichier sera alors modifiable.
3- ajouter l'unité ainsi crée au projet.
4- Modifier la ligne 679 située dans la région 'TCustomAction' en if AKey<112 then NormilizedKey := Ord(Chr(AKey).ToUpper) else NormilizedKey:=AKey; et les raccourcis F1-F12 fonctionneront.

Je n'ai testé que ce code, il est certainement à améliorer pour ne tester que Akey entre 112 et 122 etc.. C'est surtout la démarche qui est à prendre en compte

Autre code testé

Code :

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

 if AKey in [112..122] then NormilizedKey:=AKey else NormilizedKey := Ord(Chr(AKey).ToUpper);

[skywaukers]

Bonsoir,

Un grand merci à toi ! ça marche imppec.

Mais pourquoi Embarcadero ne l'a pas corrigé depuis la 11.2 ?

@++
Dany