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