Carregar Glyph de um ImageList

Delphi

12/05/2004

Olá! Alguém saberia me dizer como posso fazer para carregar um Glyph de um SpeedButton a partir de um ImageList. Por exemplo no Onclick de um botão Setar o Glyph para uma imagem da imagelist e no OnClick de outro botão trocar para outra imagem da imagelist.

valeu!


Delphi32

Delphi32

Curtidas 0

Respostas

Delphi32

Delphi32

12/05/2004

Acabei descobrindo da seguinte forma:

procedure TForm1.Button1Click(Sender: TObject);
var s:TBitmap;
begin
   s := TBitmap.Create;
   ImageList1.GetBitmap(0,s);
   SpeedButton1.Glyph := s;
   FreeAndNil(s);
end;



GOSTEI 0
POSTAR