一个简单的问题，但是我没有尝试出来

Question

在做启动界面的时候，我将几幅BMP图片放在ImageList控件中，然后使用了Image控件，问题是：如何在Image中显示Imagelist的图片？Image.Picture.LoadFromFile的方法我知道，但是我不想用这个方法。
麻烦哪位给出代码，谢谢！！

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
   ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
end;

Answer 2

我是在做启动界面的动画，但是用GetBitmap方法，达不到动画的效果，看看这段代码有没有问题：var
  Form1: TForm1;
  i:integer;//在ImageList1中放了16张小的BMP图片
implementation{$R *.dfm}
begin
 Form1 := TForm1.Create(Application);
 for i:=0 to 15 do
  begin
    sleep(100);
    Form1.ImageList1.GetBitmap(i,Form1.Image1.Picture.Bitmap);
    Form1.Show;
    Form1.Update;
  end;
End.
为什么没有动画的效果？

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    ImageList1: TImageList;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
 for i:=0 to 15 do
  begin
   Image1.Picture.Bitmap:=nil;
    sleep(100);
    Form1.ImageList1.GetBitmap(i,Form1.Image1.Picture.Bitmap);
    Form1.Show;
    Form1.Update;
  end;end;end.

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i:=0 to 15 do
  begin
    Image1.Picture.Bitmap:=nil;
    sleep(100);
    ImageList1.GetBitmap(i, Image1.Picture.Bitmap);
  end;
end;

Answer 5

zxqian(GOODMAN)的是可以的， ahjoe(强哥) 的不成功。
但是随之而来的问题是：ImageList保存的图像大小有限，最大才32×32，呵呵，如何才能保存更大的图像？资源文件除外