（6）JVCL之加载多个BMP图像并动画展示

最新推荐文章于 2022-06-13 11:27:46 发布

D-Nolan

最新推荐文章于 2022-06-13 11:27:46 发布

阅读量311

点赞数

分类专栏： JVCL/JCL 文章标签： delphi

本文链接：https://blog.csdn.net/gust2013/article/details/124205712

版权

JVCL/JCL 专栏收录该内容

16 篇文章 3 订阅 ¥69.90 ¥99.00

订阅专栏

本文介绍如何在Delphi应用程序中利用JVCL库的JvBmpAnimator和ImageList控件，将多个BMP图像制作成动画效果。通过设置Position、Speed和Transparent属性，可以实现动画的播放控制和透明效果。

摘要由CSDN通过智能技术生成

在窗体展示一个动画是很有意思的，让静态的窗体立马动感十足。

1、拉入JvBmpAnimator与ImageList控件，并做关联

2、ImageList负责加载连续的bmp图像，JvBmpAnimator负责连起来并动画展示

3、有3个重要的属性Position（当前从那张图片开始）、Speed（动画播放速度）、Transparent（动画是否透明）

部分示例代码：

procedure TBmpAnimMainForm.OnOffClick(Sender: TObject);
begin
  with BmpAnimator1 do
  begin
    Active := not Active;
    if not Active then
      Position := 0;
  end;
end;
 
procedure TBmpAnimMainForm.Edit1Change(Sender: TObject);
begin
  if not BmpAnimator1.Active then
     BmpAnimator1.Position := UpDown1.Position;
end;
 
procedure TBmpAnimMainForm.Edit2Change(Sender: TObject);
begin
  try
    BmpAnimator1.Speed := StrToInt(Edit2.Text);
  except
    BmpAnimator1.Speed := 15;
  end;
end;
 
procedure TBmpAnimMainForm.TransparentClick(Sender: TObject);
begin
  BmpAnimator1.Transparent := Transparent.Checked;
end;