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;