------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
i : Integer;
bmp : TBitmap;
begin
if BitBtn1.Tag>=7 then
begin
BitBtn1.Tag := 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i=5 then i:=1;
inc(i);
BitBtn1.Glyph.LoadFromFile('D:\'+inttostr(i)+'.bmp');//这里修改要显示的一系列图片路径和名称
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ImageList1.Tag<ImageList1.Count-1 then
begin
ImageList1.Draw(c,0,0,imageList1.Tag+1,button1.Enabled); //绘制到目标
imagelist1.Tag := imagelist1.Tag+1;
end else imagelist1.Tag :=0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
c:=TCanvas.Create;
c.Handle := GetDc(self.Button1.Handle); //获取dc
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
c.Free; //释放
end;