Discussion :

[JJJJJ]

Bonjour,

je cherche vainement une piste (dans la FAQ et forum Delphi) pour la question suivante :
J'ai des TImages nommées Photo1, Photo2, Photo3, ..., Photo12.
Je les remplace dans un programme existant par un array[1..12] of TImage.
Il y a dans le programme existant des procédures avec MouseMove. Par exemple dans le cas de Photo3 :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Photo3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
       { cette procedure, non recopiée complètement ici, utilise les coordonnées X et Y pour des calculs}
end;

Maintenant, Photo3 n'existe plus et est remplacé par Photo[3].
Le problème est de ré-écrire la procédure ci-dessus de telle sorte qu'elle fonctionne exactement comme avant.
Je n'espère pas qu'on me donne un code totalement finalisé, mais si vous avez une indication sur la méthode vers laquelle s'orienter ...

[Paul TOTH]

Code :

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

1
2
 
Photo[3].OnMouseMove := Photo3MouseMouve;

[JJJJJ]

Je ne comprends pas bien : Photo3 a été supprimé de la fiche et maintenant l'identificateur correspondant Photo3MouseMove est non déclaré.
Je m'imaginais qu'il faudrait ré-écrire une procédure pour remplacer l'ancienne, que photo[i] figurerait dans la nouvelle procédure (avec i:=3 par exemple) et que Photo3MouseMove disparaissait définitivement du code.
Mais je me trompe peut-être.
En tout cas je suis encore dans le brouillard, mais ça fini toujours par s'éclaircir, d'une façon ou d'une autre.

[Paul TOTH]

s'il y a du code associé à Photo3MouseMove, il n'a pas disparu en supprimer le composant Photo3...ceci dit il serait plus propre de déplacer la méthode dans la partie "private" de la fiche au lieu de la laisser là ou Delphi l'a mise (published par défaut)

[JJJJJ]

Oui, bien sûr, le code correspondant n'est pas perdu. D'ailleurs, je me suis bien gardé de toucher au programme d'origine : je le recopie par morceaux sur un programme nouvellement créé. Donc pas d'inquiétude.
Mais s'il faut reprendre toutes les anciennes procédures MouseMove, MouseUp, MouseDown et d'autres, chacune douze fois, l'intérêt de passer à un array de Tform est très réduit.
En fait, le but actuel est justement de tester le gain que cela pourrait apporter, en vue de créer une version future, qui comprendrait un nombre considérablement plus grand de TImage, ce qui entrainerait la présence d'un nombre un peu effrayant de procédures selon la méthode existante. Mais ce n'est pas impossible et c'est peut-être ce qu'il faudra se résoudre à faire.

[exoseven]

Tu n'as pas tout a fait compris, toutes les images de ton array vont avoir la même procédure MouseMove, la même MouseUP, donc que tu en ais 3 ou 1000 cela sera pareil

[JJJJJ]

Oui, sur le coup je n'avais pas compris. Je commence maintenant à voir comment faire.
Je suis en train d'écrire une procédure "PhotoMouseMove" commune à tous les TImages de l'array. Il reste encore quelques problèmes à régler pour la programmation des calculs (dans la procédure) qui dépendent de paramètres différents selon l'index i de Photo[i] sur laquelle le pointeur se trouve. Mais ça à l'air de bien se présenter.

[Aka Guymelef]

Pense à utiliser la propriété Tag de tes TImage pour stocker à l'intérieur leur indice dans le tableau, comme ça une fois dans les évènements génériques, tu caste le Sender en TImage et tu peux savoir quel est son index via le Tag.

[JJJJJ]

Excellent !
C'est plus simple que la façon dont je m'y prenais pour récupérer l'indice de l'image.
Merci.

[Paul TOTH]

Excellent !
C'est plus simple que la façon dont je m'y prenais pour récupérer l'indice de l'image.
Merci.

oui et tu peux très bien faire pointeur ton les OnMouseMove de tous les composants posés dans l'IDE sur la même méthode

[anapurna]

salut

l'autre solution est d'appeler le composant

Code :

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

'img_'+InttoStr(Indice)

et avec le

Code :

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

1
2
3
4
 
 nomComp := (sender as Timage).Name;
...
ind := Strtoint(copy(nomComp,4,length(nomComp)-4));

tu connait le déclencheur et tu recupere l'indice
... pour récupéré l'indice un simple copy suffit


@+ Phil