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