[propriété glyph d'un bouton]

Question

Bonjour, 
je ne parviens pas à changer, en cours d'exécution, l'image d'un bouton à partir d'un TImageList qui contient les éléments nécessaires. :sad) 
Merci de votre aide.
Amicalement,
Lucien

cs_Nono40 · Answer

Sur quel type de bouton ?

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

cs_lucien · Answer

Il s'agit d'un TBitButton
Amicalement,
Lucien

cs_Nono40 · Answer

Il faut utiliser la fonction GetBitmap de l'objet TListImage :

procedure TForm1.Button1Click(Sender: TObject);
begin
   ImageList1.GetBitmap(0,BitBtn1.Glyph);
end;

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

cs_lucien · Answer

Merci Nono40, j'essaie
Amicalement,
Lucien

cs_Nono40 · Answer

En fait il faut effacer l'image avant de mettre la nouvelle :

procedure TForm1.Button1Click(Sender: TObject);
begin
   BitBtn1.Glyph:=Nil;
   ImageList1.GetBitmap(0,BitBtn1.Glyph);
end;

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

> > > > 
> > > > > Bonjour, 
> > > > > je ne parviens pas à changer, en cours d'exécution, l'image d'un bouton à partir d'un TImageList qui contient les éléments nécessaires. :sad) 
> > > > > Merci de votre aide.
> > > > > Amicalement,
> > > > > Lucien
> > > > 
> > > 
> > 
>

cs_lucien · Answer

Avec tous mes remerciements à Nono40,
tout fonctionne comme tu le dis  ;) 
Amicalement,
Lucien

[propriété glyph d'un bouton]

6 réponses

Votre réponse

Discussions similaires