Discussion :

[petitprince]

Bonjour,
Voilà, je ne comprend pas le fonctionnement des TObjectLists:
Dans mon appli, je crée des composants dynamiquement, et je les met dans une TObjectList, elle-meme commandée par une listbox, jusque là, pas de problème. Pour supprimer un composant, là non plus pas de problème, je le sélectionne dans le listbox, et visuellement parlant, il disparait de l'appli.....

Là où est le problème, c'est à l'insertion de composants, en effet, je voudrai insérer par exemple un compo entre 2 autre, et ainsi renomer le caption des suivant à partir de celui insérer: on a <compo1><compo2>, et je voudrai insérer un compo entre les 2, et cela donnerai <compo1><compo inséré qui devient compo2><compo2 qui devient compo3> (ouf c'est lourd tout çà!!)
Bref, visuellement parlant, rien ne se passe !!!!!!!!
Je voudrai aussi en déplacer à la dragndrop, et donc ainsi renomer de meme les compos précèdant le compo "draggé"

Voilà donc mon gros problème.........Donc si vous avez des conseils, des astuces, ou même des exemples sur l'utilisation des TObjectList, n'hésitez pas!!!!

D'avance merci...

P.S. : quand je dis je crée des composants, c'est le même, nous sommes d'accord !!! ( à savoir un TFrame avec des compo dessus)

[Linkin]

Il y a les méthodes: Insert, IndexOf.

Sinon pour le renommage et le déplacement de tes frames, c'est à toi de le gérer après ton insertion.

[Bloon]

Il suffit de les renommer après insertion, en commençant par la fin pour éviter d'avoir des doublons sur le Name :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.ajouteComposant(position: integer; composant : TComponent);
var
  i : integer;
begin
  // l est le TObjectList
  l.Insert(position,composant);
  for i := l.Count - 1 downto position do
    (l.Items[i] as TComponent).Name := 'compo' + intToStr(i + 1);
end;

Bloon

[petitprince]

Alors à quoi sert le référencement à une TObjectList de mes composants, si je doit gérer les déplacement ?
Vraiment ces List, j'ai du mal à m'y faire !!

En tout cas merci pour vos réponses...