Agir par des frappes clavier sur un TPaintBox

Agir par des frappes clavier sur un TPaintBox qui se trouve dans un TScrollBox.

Le problème c'est que TPaintBox n'a pas d'évènement 'OnKeyDown'.
Si on le met dans un TPanel ou un TScrollBox, cela ne change rien. Eux non plus n' ont ce type d'évènement.
De plus, TScrollBox gère lui-même les frappes clavier (flèches, pageup et down, home, end) y compris quand on
les associe avec CTRL ou SHIFT ou ALT. De même un TTreeView présent sur la fiche.

Reste le 'TForm.FormKeyDown', mais il faudrait pouvoir intercepter les frappes pour traiter celles destinées
au TPaintBox et laisser passer les autres destinées aux différents contrôles se trouvant sur cette form.

Je ne vois pas de solution, si ce n'est utiliser certaines touches fonctions mais idéalement je voudrais
utiliser les flèches.

en mettant la propriété keypreview de ta form a true tu peux intercepter tous les onkeydown que tu veux


mais bon

a mon avis le plus simple et le plus efficace c'est de créer un compsant a partir de TCustomControl et faire ce que tu veux avec


nb : c'est quoi le pb au juste ?

Bonjour,

Une solution que j'ai déjà mis en oeuvre :
- Placer un composant gérant l'évènemenemt OnKeyDown (exemple TLabel),
- Rendre ce composant invisible,
- Dans le OnClick du PaintBox, forcer le focus sur le composant invisible (car un TPaintBox ne peux pas prendre le focus je crois),
- Dans le OnKeyPress du composant invisible, on code se que l'on souhaite faire dans le TPaintBox.

Bon code ;)

Merci pour ces tuyaux, Issam et Declencher

J'ignorais l'existence de cette propriété <KeyPreview>. Finalement c'est cette option que j'ai choisie.

La solution me convient parfaitement. Toutes les frappes clavier passent d'abord par le <FormKeyDown> dans lequel un booléen me signale qu'il s'agit d'une frappe pour <TPaintBox>.

Comme le paramètre <Key> de

Code:

---

TForm1.FormKeyDown(Sender: TObject; var Key: Word;

---

est modifiable, je le mets en sortie à 0 et il n'intéresse plus alors un autre contrôle éventuellement actif.

Citation:

---

Envoyé par declencher

- Rendre ce composant invisible,
- Dans le OnClick du PaintBox, forcer le focus sur le composant invisible (car un TPaintBox ne peux pas prendre le focus je crois),
- Dans le OnKeyPress du composant invisible, on code se que l'on souhaite faire dans le TPaintBox.

Bon code ;)

---

??????????????
Impossible de donnée le focus à un composant invisible, surtout un Tlabel même si il est visible, non??? :aie: :aie: 8O
Mais j'aime bien que les autre donne leur avis, car cher moi sa marche pas :cry: