usage du sender

Version imprimable

usage du sender

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:

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:

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

23/05/2006, 19h51
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 ;)
23/05/2006, 19h59
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....
23/05/2006, 20h10
Eric Boisvert
je crois que tu peux simplement ecrire comme ca:
Code:

1 2 TImage(sender).Canvas.Brush.Color =clWhite
mais je suis plus sur de la syntax...
23/05/2006, 20h12
evarisnea

:salut:
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:

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 ;)

Merci à vous deux pour vos réponses.

Malheureusement
Code:

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 ?

23/05/2006, 20h23
Eric Boisvert
il semble que tu en as oublier un....
Code:

1 2 Timage(sender).Canvas.FrameRect(img18c.Canvas.ClipRect);
23/05/2006, 20h27
dleu

Oui, tu as raison.

Ca fonctionne impec maintenant. Merci de tout coeur à vous deux, Eric Boisvert et evarisnea.

une sudgestion:

Code:

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

C'est peut-être moins lourd a coder comme ca....

23/05/2006, 20h34
chauve59
ou
Code:

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]