Discussion :

[Mestoph]

Bonjour !

Je crée un projet concernant les graphes par coloration des sommets.

Pour le dessin du graphe aucun soucis, j'utilise un TPaintBox pour le tracer des arrêtes et des TShape dynamique pour les sommets.

Les TShape crées dynamiquement sont lié au TPaintBox par la commande suivante : Sommet.Parent := ZoneGraphe;

Sachant que Sommet et mon TShape et ZoneGraphe mon TPaintBox.

Mon soucis et que je n'arrive pas a retrouver mes TShape créer dynamiquement avec FindComponents.

Bien entendu c'est la première fois de ma vie que j'utilise le FindComponents sur des composant créer dynamiquement.

Si quelqu'un a une solution, je veux bien un petit coup de main !

Merci d'avance.

[sjrd]

Tu utilises bien FindComponent sur l'owner de tes composants (ce que tu transmets comme seul paramètre du constructeur) ?

Aussi, as-tu bien nommé les composants que tu créais dynamiquement, en modifiant leur propriété Name ? Es-tu sûr de les rechercher avec le même nom ?

[Clorish]

tu peux toujours faire une boucle sur la proprietee "components" ....

[Flode]

Je me souviens avoir déjà eu ce problème sur un projet

Il me semble qu'il y avait un lien avec l'ordre dans lequel j'initialisais les propriétés Name et Parent.
"Parent" puis "Name" premettais de retrouver avec findComponent fonctionnait alors que "Name" puis "Parent" renvoyais nil (ou inversement).

[philnext]

Un peu de précisions sur les problèmes rencontrés ... ton code par exemple !

[Mestoph]

Désolé, j'ai pas beaucoup de temps libre, donc dur dur de pouvoir revenir rapidement sur les forums...

Voici la création dynamique :

Code :

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

1
2
3
4
5
6
7
8
9
10
        Sommet := TShape.Create(ZoneGraphe);
        Sommet.Shape := stCircle;
        Sommet.Width := 20;
        Sommet.Height := 20;
        Sommet.Left := X - 10;
        Sommet.Top := Y - 10;
        Sommet.OnMouseDown := ShapeMouseDown;
        Sommet.Tag := Length(Graphe) - 1;
        Sommet.Parent := ZoneGraphe;
        Sommet.Name := 'Sommet' + IntToStr(Length(Graphe) - 1);

Voici la recherche des composant de base que j'ai essayée :

Code :

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

1
2
3
4
5
6
7
8
9
  showmessage(inttostr(ZoneGraphe.ComponentCount)); // test
  For Cmp := 0 To ZoneGraphe.ComponentCount - 1 Do
    begin
      if ZoneGraphe.Components[Cmp] Is TShape Then
         begin
           if (ZoneGraphe.Components[Cmp] As TShape).Tag = 1 Then
           (ZoneGraphe.Components[Cmp] As TShape).Brush.Color := clgreen;
         end;
      end;

La recherche est pas tres propres, mais ce n'etait qu'un test.

Le code pourtant me semble correct... est ce que mon compilateur pourrais avoir un problème ?

Encore merci d'avoir répondu aussi vite !