Bonjour à toutes et à tous,

Me voilà bien en peine, je n'ai pas trouvé le moyen d'affecter une des images contenues dans un TImageList à un TSpeedButton. Voilà ce que j'ai essayé sans succès :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to NbBoutons-1 do
  begin
    Bouton[i]:= TSpeedButton.Create(Self);
    with Bouton[i] do
    begin
      Parent:= Self;
      Height:= 83;
      Width:= 87;
      ListImgBtn.Draw(Glyph.Canvas, 0, 0, i, True);
//      Glyph:= TBitmap(ListImgBtn.Components[i]);
      Left:= i*(Width+8);
    end;
  end;
end;
Que ce soit la ligne 13 ou 14 du code ci-dessus, le résultat est le même : les boutons s'affichent, mais sans images !

J'ai essayé aussi avec un TSpeedButton venant de la barre de composants : même résultat.

Une idée de ce qu'il faut faire ?

Cordialement.

Pierre