Discussion :

[dleu]

Bonjour,

voici le problème auquel je me heurte :

Ce code affiche une bordure autour d'un TImage lorsqu'on clique sur l'image (sélection de l'image en quelque sorte) :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFormSoins.img18cClick(Sender: TObject);
begin
  if FormSoins.Tag=1 then
  begin
    if img18c.Canvas.Brush.Color =clWhite then img18c.Canvas.Brush.Color :=clRed;
    else img18c.Canvas.Brush.Color :=clWhite;
    img18c.Canvas.FrameRect(img18c.Canvas.ClipRect);
  end;
end;

Le problème c'est que j'ai 70 images de ce type. J'ai essayé de créer un seul gestionnaire d'évènement et d'utiliser la propriété sender mais cela ne marche pas :

Code :

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

sender.Canvas.Brush.Color =clWhite

Cela n'est pas autorisé.

Comment puis-je m'y prendre pour ne pas avoir à taper 70 fois pratiquement le même code ?

Merci d'avance.

Didier

[chauve59]

Si jai bien compris, tu veux mettre le meme evenement sur plusieurs composants de meme types.

Sous delphi 6 tu vas dans lobject inspector , onglet events et la tu peux choisir l'event a mettre sur ton composant.

Jamais testé aussi.

reste un probleme faut cliquer a peu pres 4*70 fois

[dleu]

Le problème n'est pas là : mettre le même gestionnaire à 70 images, ça je sais le faire. Mais chaque image a un nom différent et donc je voudrais généraliser le gestionnaire d'évènement en utilisant par exemple sender à la place de img18c, de img17c, de img16c, de img15c etc....

[Eric Boisvert]

je crois que tu peux simplement ecrire comme ca:

Code :

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

1
2
 
TImage(sender).Canvas.Brush.Color =clWhite

mais je suis plus sur de la syntax...

[evarisnea]

je pense que tu devrais faire un transtypage
en effet, le paramètre Sender de la signature d'un evènement de type TNotifyEvent est de type TObject. un TObject n'a rien à faire avec un Canvas.
voilà comment il faut faire si je me souviens bien

Code :

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

TImage(sender).Canvas.Brush.Color := clWhite;

c'est comme ca qu'il faut faire, mais j'ai pas testé. alors je ne te garanti pas que ca marchera

[dleu]

Merci à vous deux pour vos réponses.

Malheureusement

Code :

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

1
2
3
    if Timage(sender).Canvas.Brush.Color =clWhite then Timage(sender).Canvas.Brush.Color :=clRed;
    else Timage(sender).Canvas.Brush.Color :=clWhite;
    Timage(sender).Canvas.FrameRect(img18c.Canvas.ClipRect);

ne fonctionne pas, je viens de l'essayer.

Auriez-vous une autre idée ?

[Eric Boisvert]

il semble que tu en as oublier un....

Code :

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

1
2
 Timage(sender).Canvas.FrameRect(img18c.Canvas.ClipRect);

[chauve59]

ou

Code :

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

1
2
3
4
5
6
7
 
procedure tform5.test(Sender: tObject) ;
begin
        with Sender as Timage
        do Canvas.Brush.Color := clWhite;;
 
end;

apres plus qua affecter le gestionnaire a tous tes composants
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]