Discussion :

[Alf!]

bonjour

J'ai un morceau d'application qui utilise des frames pour de la saisie "modulaire" (plusieurs formats de frames hérité d'un ancêtre commun dans un scrollbox...) : tout marche bien.

Je crée une nouvelle frame avec des besoins de raccourcis clavier (comme on le sait, l'utilisateur va toujours plus vite quand il n'a pas besoin de toucher sa souris) et j'y arrive pas

Les boutons avec "&" ne réagissent pas, alors que sur la form en dessous, ça marche dans tous les cas

Pas de keydown/keypress sur une frame : le problème viendrait-il de là ?

J'ai même codé des keydown et keypress sur la form de dessous qui lançait une procédure créée dans l'ancêtre des frames et implémentée dans la frame qui m'intéresse : rien ne passe par keydown et keypress.

Je veux faire un (vrai ou faux, peu importe) page control, je veux bien que la page change sur toutes les frames affichées, c'est même mieux
Cela ne m'intéresse pas de coder l'évènement sur un contrôle en particulier (et le faire sur tous... )

Vous avez une idée ? faut un notifyevent ? (un notify pour pouvoir utiliser ALT+touche, ça me parait un peu fort mais s'il n'y a que ça...)

[Paul TOTH]

les évènements clavier sont envoyés au control qui a le focus, il y a peu de chance que ce soit la Frame

et TForm.KeyPreview permet a une fiche d'intercepter les touches avec ses contrôles enfants, mais ça n'existe pas pour une Frame

[Alf!]

c'est ballot, si ça fonctionne bien à la souris, faut que je trouve le moyen de m'en passer

[ShaiLeTroll]

Je maintiens en ce moment une application qui utilise massivement les
J'ai ainsi une série de fenêtre qui contiennent une section spécifique ainsi que Frame qui contient 3 frames dont une contient un PageControl qui contient 7 Frames
Moi qui n'aime pas les Frames, je suis servi !

Les raccourcis via & fonctionne sur le PageControl contenu dans la Frame, il permet de se balader d'onglet en onglet
Mais fonctionne aussi dans les Frames contenus dans le PageControl, cela agit sur le TBitBtn ou les TCheckBox ayant un raccourci

Par contre, cela n'a pas été très bien pensé, car les & utilisent la même lettre pour plusieurs raccourcis avec les Frame c'est difficile de penser à la Frame Parent qui elle même est dans une autre Frame ...

Selon les circonstances, parfois les raccourcis nécessite la touche ALT, et dans certains cas, il déclenche sans même le ALT
En général, c'est selon le composant qui a le Focus,
si c'est un TEdit, ALT nécessaire car c'est pour switch entre le mode saisie et le mode shorcut,
si c'est un TStringGrid en lecture seule cela n'oblige pas le ALT

[Alf!]

Je ne suis pas un fan des frames non plus, mais faut avouer quand dans certains cas de figures, c'est bien pratique

J'ai fait un petit programme avec une form dans laquelle je colle des frames en dur (j'avais fait dynamiquement mais ça fait pareil), contenant un bouton avec &
ça marche, mais pour la 1ère frame, aucun effet sur les autres. Même si le bouton d'une autre frame a le focus, le raccourci va déclencher le bouton de la 1ère (messagebox du nom de la frame, pas de risque de me tromper) alors que la touche Entrée va déclencher celui qui a le focus

Je ne peux pas faire + simple et ça ne fonctionne déjà pas

[ShaiLeTroll]

Les lettres sont toutes différentes ?

[Alf!]

Ah non, vu que ce sont les mêmes frames répétées, ce sont les mêmes raccourcis

[ShaiLeTroll]

Voilà !
C'est le premier qui est géré, les autres passent à la trappe !
C'est que je disais dans mon précédent poste : "Par contre, cela n'a pas été très bien pensé, car les & utilisent la même lettre pour plusieurs raccourcis avec les Frame c'est difficile de penser à la Frame Parent qui elle même est dans une autre Frame ..."

Je ne sais pas exactement comment son balayer les objets, je pense via la propriété Controls\Parent, dès qu'un objet répond au raccourci, c'est lui qui le reçoit, et cela s'arrête là !
Les Frames ne sont pas autonomes, c'est la TForm qui contient le tout qui dispatch tout ça !

Tu as bien mis KeyPreview à true pour gérer keydown/keypress ?
Sinon utilise TApplication.OnMessage ou TApplicationEvents.OnMessage pour capturer WM_KEYDOWN et WM_SYSKEYDOWN
Une fois le raccourci obtenu, tu regarderas quelle frame est en cours d'affichage et tu appeleras ses events !


Une autre idée, serait d'utiliser un TTabControl au lieu de TPageControl
Tu n'as dans ce cas qu'une seule Frame qui se recharge lors du changement d'onglet !
La partie stockage des données sera plus subtile à gérer !

[Alf!]

Merci

J'ai crû avoir touché au KeyPreview, manisfestement non, car cela fonctionne tel que j'ai codé !
C'est un peu particulier, mais ce comportement m'intéresse : activation des onglets par un raccourci clavier, sur toutes les frames affichées en même temps

Donc, sur la Form, j'ai mis dans FormKeyDown :

Code :

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

1
2
3
  if Shift = [ssAlt] then
    for i := 0 to ScrollBox_donnees.ComponentCount - 1 do
       (ScrollBox_donnees.Components[i] as TFrameAncetre).RaccourciClavier(Key);

La méthone RaccourciClavier est virtuelle dans la Frame Ancêtre et implémentée dans la Frame qui m'intéresse : ça marche nickel

Résolu !