Discussion :

[-dyla-]

Bonjour,

C'est encore moi. J'ai une question:

Est-ce qu'un SetFocus() sur un TTabSheet correspond à un clic souris sur un TTabSheet ?

Il y a déjà des sujets traitant du SetFocus sur TTabSheet, mais c'est toujours par rapport à un TEdit.

Mon application pilote des sites Internet via des TWebBrowsers posés sur des onglets TTabSheet. J'aimerais que lorsque l'utilisateur presse une certaine touche du clavier l'onglet suivant est affiché. Ceci marche. J'utilise l'événement onKeyPress.

Mais, si l'utilisateur clique sur un des sites Internet, je perds le focus des onglets et les événements onKeyPress ne sont plus capturés. J'ai vu que si je clique sur l'onglet, il est de nouveau actif et mes captures de touches fonctionnent. Seulement je ne veux pas devoir aller cliquer sur l'onglet pour l'activer. J'ai donc pensé à SetFocus().

Mais rien ne se passe. Voici mon code:

Code :

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

TTabSheet(tabSheets.Items[PgcMain.ActivePageIndex]).SetFocus();

Comme vous pouvez le voir, j'ai des onglets dans un TList nommé tabSheets. Normalement avec ce code, ça devrait me mettre le focus sur mon onglet actuel. D'où ma question initiale:
Est-ce qu'un SetFocus() sur un TTabSheet correspond à un clic souris sur un TTabSheet ?

Merci d'avance.

[Ph. B.]

Bonjour,

Et en essayant plutôt:

Code :

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

1
2
//TTabSheet(tabSheets.Items[PgcMain.ActivePageIndex]).SetFocus();
PgcMain.ActivePageIndex := tabSheets.ItemIndex;

Je suppose que la TListBox et le TPageControl trie à l'identique pour l'un, les Items (nom des TTabsSheet) et pour l'autre, les pages (les TTabSheet).
--
Philippe.

[-dyla-]

Merci pour la réponse.

J'ai peur de ne pas bien comprendre. Je n'ai pas de TListBox ici, mais un TList (liste contenant des TObjects). Dans mon application, cette TList contient mes onglets. Ces onglets sont créés dynamiquement c'est pour ça que je les stocke dans un TList.

[Cl@udius]

Salut

Bonjour,
Mais, si l'utilisateur clique sur un des sites Internet, je perds le focus des onglets et les événements onKeyPress ne sont plus capturés.

Quelle est la valeur de la propriété KeyPreview de ta fiche ?
Si elle est à False, bascule la à True, pour continuer à intercepter les événements clavier.

@+

[-dyla-]

Je bien mis KeyPreview à True. Mais est-ce qu'elle peut changer en cours de route ?

[Cl@udius]

Mais est-ce qu'elle peut changer en cours de route ?

Non aucune raison à cela.

[-dyla-]

D'accord.

Il faudrait juste que j'arrive à faire l'équivalent d'un clic sur l'onglet en cours en code.

[Ph. B.]

Bonjour,

J'ai peur de ne pas bien comprendre. Je n'ai pas de TListBox ici, mais un TList (liste contenant des TObjects).

Au temps pour moi, j'ai mal lu la phrase ! Toutes mes excuses...

Dans mon application, cette TList contient mes onglets. Ces onglets sont créés dynamiquement c'est pour ça que je les stocke dans un TList.

Eh bien, ce n'est guère plus compliqué, non ?

Code :

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

1
2
// Supposons que c'est le 3° objet (le 3° onglet créé dynamiquement) que l'on veut activer
PgcMain.ActivePage := TTabSheet(tabSheets.Items[2]);

--
Philippe.

[-dyla-]

Bonjour.

Non, ceci ne fonctionne malheureusement pas. Finalement, j'utilise la fonction getasynckeystate qui me permet de capturer n'importe quelle touche n'importe où.

Merci pour vos réponses.