Discussion :

[rvzip64]

Salut tout le monde,

Actuellement dans mon programme je fais la code suivant:

Code :

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

1
2
 
TframeX(sender.classparent.classparent.classparent.classparent).color:=clred;

Il n'y aurait pas un moyen plus propore pour rechercher un parent
que de faire cette concaténation de classparent ???

Merci d avance.

[Bloon]

Ce code n'est pas cohérent car classParent renvoie une classe et tu le castes en objet (à moins que TFrameX ne soit un class of... ?). Et en plus, tu modifies une propriété d'instance (Color).

Bref, tu veux faire quoi exactement ? :-)

Bloon

[rvzip64]

Et c est la que je me rend compte que j ai encore beaucoup de chose a apprendre.

Bon ok je vais essayé d etre plus clair (j'avais simplifié le code pour que ça soit plus compréhensible).

Si tu veux j ai plusieurs frame avec chacune un bouton dessus or tous les boutons , font appel à la meme procedure.

Ce que je voulais faire c'est identifié quel est le parent du bouton , (enfin avoir la frame), pour pouvoir par exemple retrouver un composant sur cette frame et y travailler dessus.

[rvzip64]

Et je suis aussi preneur , d'un petit tutoriel , qui me permettrait de mieux comprendre tout cela si c est possible.

[Bloon]

Dans ce cas, c'est plutôt la propriété Parent qu'il faut utiliser.

Pour éviter d'enchainer les parent.parent.parent ... il faut faire une fonction récurisve, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Recherche un parent de type TFrame (ou dérivé) du contrôle ctrl
function trouverFrameParent(ctrl : TWinControl) : TWinControl;
begin
  if assigned(ctrl.parent) then
  begin
    if (ctrl.parent is TFrame) then
      result := ctrl.parent
    else
      result := trouverFrameParent(ctrl.parent);
  end
  else
    result := nil;
end;

Pour les tutos, regarde sur le site, il y en a plein !

Bloon

[rvzip64]

Oui , en effet t as solution est bonne.
Sauf que moi je me sert du sender d'une procédure évennementielle qui est de type Tobject. La propriété parent n'est donc pas disponible.

[sjrd]

Caste-là en TWinControl dans ce cas

Code :

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

frameParent := trouverFrameParent(TWinControl(Sender));

[rvzip64]

ok , mais alors pourquoi c était pas bien ce que je faisais , quand je casté en Tframe ??

[Bloon]

ok , mais alors pourquoi c était pas bien ce que je faisais , quand je casté en Tframe ??

Parce que tu castes classParent et non Parent. classParent est une classe alors que Parent est un objet.

Bloon

[rvzip64]

Merci tout le monde