Delphi XE8 为Image设置渐变效果


本文整理自网络,侵删。

 
Delphi为我们提供了为控件设置动画的功能,具体说,就是通过改变一个控件的某个属性的值,让这个值自动在一个数值范围内改变来完成。比如这里我们要做的,就是改变Image的Opacity属性,通过控制图片的透明度从0到1来变化,让图片从无到有,渐渐显示出来的动画效果。

下面来看一下具体的做法:
1.在Object Inspector中选择Image.Opacity属性,建立一个动画对象TFloatAnimation。注意,在控件属性值的左边有电影胶片的图标的,表示这个属性都可以设置成动画。
Delphi <wbr>XE8 <wbr>为Image设置渐变效果
2.在Stucture窗口中,多了一个FloatAnimation1对象,选择他,然后设置他的相关属性
Delphi <wbr>XE8 <wbr>为Image设置渐变效果

头一次设置,会头大,有很多属性的。
1.Delay:延迟是表示开始动画前等待的秒数。 这个时间从执行Start方法(或Enabled=True)开始计时。如果Loop为True,延迟也只在调用Start时起作用。
2.Duration:动画时长,设置成3秒
3.Enabled:是否打开动画
4.Interpolation:插值算法
5.Inverse:是否动画反转
6.Loop:是否循环动画
7.PropertyName:这个动画控制的属性名称,由于我们在Image.Opacity上建立的,所以这里自动填好了
8.StartFromCurrent:从当前值开始动画。
9.StartValue:动画的开始值
10.StopValue:动画的结束值
11.Trigger:动画的触发器。当什么条件发生时动画开始。
12.TriggerInverse:什么条件下,触发动画反向显示.
粗略说一下这几个值,下面是我设置后的结果:
      object FloatAnimation1: TFloatAnimation
        AnimationType = InOut
        Enabled = True
        Delay = 0.200000002980232200
        Duration = 3.000000000000000000
        PropertyName = 'Opacity'
        StartValue = 0.000000000000000000
        StopValue = 1.000000000000000000
        Trigger = 'IsVisible=true'
      end
运行应用,一个图片就渐渐显示出来了.

http://blog.sina.com.cn/s/blog_44fa172f0102vifz.html

相关阅读 >>

Delphi 遍历所有edit控件

Delphi与汇编

Delphi xe 提示没有定义decimalseparator等的解决方法

Delphi 日期字符串转换日期格式

Delphi一个简单的多线程例子

Delphi中tframe组件的使用

Delphi datetimepicker 宽度如何与Delphi自带style同步

Delphi xe6 android 实现base64字符串的解析

Delphi 保证当前程序显示在最前

Delphi 实现程序 动态 类名

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...