Accueil > Manip’s > Delphi > Images > Surligner le cadre d’une image
Surligner le cadre d’une image
jeudi 12 juin 2014, par
PANEL := TPanel(TImage(Sender).Parent) ;
Soit une Image dans un panel
Un clic sur l’image change la couleur du panel, ce qui a pour effet de créer un cadre bleu autour de l’image, pour montrer qu’on l’a sélectionnée.
le truc est de remonter du clic image au panel qui la contient par la hiérarchie des objets
le panel étant le Parent de l’image |
procedure Tform1.Image1Click(Sender : TObject) ;
var
PANEL : TPanel ;begin
PANEL := TPanel(TImage(Sender).Parent) ;
PANEL.BorderStyle := bsNone ;
PANEL.BorderWidth := 1 ;if PANEL.Color = clBlack then
PANEL.Color := clblue
else
PANEL.Color := clBlack ;end ;