Bonjour à toutes et à 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 :

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;
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.

Merci de votre aide