ImageList1 如何显示同一张图片

2012-04-15

ImageList1怎么显示同一张图片Delphi(Pascal) codeprocedure TForm1.Button1Click(Sender: TObject)begin

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;