ImageList1 如何显示同一张图片

ImageList1 怎么显示同一张图片

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);beginImageList1.GetBitmap(0,Image1.Picture.Bitmap);end;procedure TForm1.Button2Click(Sender: TObject);beginImageList1.GetBitmap(1,Image1.Picture.Bitmap);end;procedure TForm1.Button3Click(Sender: TObject);beginImageList1.GetBitmap(2,Image1.Picture.Bitmap);end;

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);beginImage1.Picture.Bitmap:=nil;ImageList1.GetBitmap(0,Image1.Picture.Bitmap);end;procedure TForm1.Button2Click(Sender: TObject);beginImage1.Picture.Bitmap:=nil;ImageList1.GetBitmap(1,Image1.Picture.Bitmap);end;procedure TForm1.Button3Click(Sender: TObject);beginImage1.Picture.Bitmap:=nil;ImageList1.GetBitmap(2,Image1.Picture.Bitmap);end;