Détection d'un clic sur un composant enfant et dessin sur le parent

Bonjour,

Mon titre n'est pas très très clair alors je m'explique : j'ai créé un composant et j'ai besoin de détecter quand on clique dessus alors j'ai créé des événements basiques :

Code:

---

1 2 3

procedure MouseDown(Button : TMouseButton; Shift : TShiftState; X, Y : integer); override; procedure MouseMove(Shift : TShiftState; X, Y : integer); override; procedure MouseUp(Button : TMouseButton; Shift : TShiftState; X, Y : integer); override;

---

Mon problème c'est que sur mon composant j'en ai implanté d'autres, par exemple j'ai un shape sur le haut de mon composant, un edit (en lecture seule donc j'ai pas besoin de cliquer dessus) au milieu et du coup quand je clique sur un de ces deux derniers composants je ne détecte pas quand l'utilisateur clique sur mon composant de base.

Si vous avez une solution ça m'aiderait bien !


J'ai une deuxième question : j'aimerais depuis mon composant, pouvoir dessiner sur le parent, donc sur la fiche sur laquelle il va apparaître, est-ce que c'est possible ? et comment faire SVP ?

Merci pour vos réponses ;)

Pour le premier point, il suffit d'affecter aux OnMouseMove et autres des composants fils la procédure de ton composant père.

Pour le second point, le Parent sera-t-il forcément une fiche ? Pourquoi pas un Panel ? Où veux-tu écrire sur le Parent ?

Citation:

---

Envoyé par tourlourou

Pour le premier point, il suffit d'affecter aux OnMouseMove et autres des composants fils la procédure de ton composant père.

Pour le second point, le Parent sera-t-il forcément une fiche ? Pourquoi pas un Panel ? Où veux-tu écrire sur le Parent ?

---

Merci de la réponse ça a l'air plus facile que ce a quoi je m'attendais pour le premier point, par contre je suis pas sur d'avoir compris précisemment, j'ai déclaré la procédure MouseDown dans un composant fils et dans l'implémentation j'ai créé cette procédure : (Tentete => fils) (FlowStep5 =>Parent)

Code:

---

1 2 3 4 5

procedure TEntete.MouseDown(Button : TMouseButton; Shift : TShiftState; X, Y : integer); begin inherited; FlowStep5.mouseDown(button, Shift , X, Y ); end;

---

ça ne fonctionne pas donc si tu pouvais me donner quelques précisions ce serais sympa :)




Pour le deuxième point j'aimerais pouvoir dessiner sur les bords de mon composant qui sera, pour ce que j'ai prévu, installé sur une fiche. J'aimerais par exemple que quand on le clique dessus, je dessine a moitié sur le composant a moitié en dehors pour bien montrer qu'il est séléctionné. Un peu comme en design Time en fait..

quelqu'un pourrait me montrer un exemple pour affecter l'évènement d'un composant père au composant fils svvpp ?? ça m'aiderait beaucoup

Je pense qu'il faut faire qqch qui ressemble à :
- dans le Create de ton compo, où tu crées les enfants (je suppose), tu affectes au OnMouseDown (par ex.) des enfants la procédure MouseDown de ton compo ;
- celle-ci devra traduire les coordonnées relatives au fils en absolues du composant, si nécessaire.

Dans ton exemple, je ne vois pas le paramètre Sender : as-tu redéfini les événements ? Ce paramètre te servirait à tester si fils ou parent, le type cliqué, etc.

j'ai rajouté ce code dans mon constructeur, le résultat est le même :(

Code:

---

1 2 3

entete.OnMouseDown:=OnMouseDown; entete.OnMouseMove:=OnMouseMove; entete.OnMouseUp:=onMouseup;

---

Pour le paramètre sender, si je le rajoute, il faut que j'enlève les override et inherited sinon mon programme ne se compile plus. après ça mes évènements ne fonctionnent pus du tout