Bonjour à touteset à tous,
Je ne trouvce pas la syntaxe qui me permettrait de trouver le parent d'un composant.
J'ai créé un composant qui se nomme ShapeRu, dans l'evenement MouseMove comme je peux savoir de qui il est parent ?
voilà ce que j'ai :
je ne trouve pas la condition du parent. La seul chose qui marche c'est quand je nomme directement le parent. Mais à la création du composant je ne connais pas le parent je sais juste que se sera obligatoirement un TStringGrid.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure ShapeRu.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Var Pt : Tpoint; xCol, xRow : Integer; xMin, xMax : integer; xHeure ,i : integer; begin inherited; // if (TStringGridRu is TShapeRu(Sender).Parent) then // if TShapeRu(Sender).parent = TStringGridRu then end;
Merci de votre aide
Partager