客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
在 HD 窗体上添加一个 TAniIndicator, 修改其 Enabled 属性为 True, 动画完成了. 这是最简单的动画相关的控件了, 只有两个值得注意的属性: Enabled: Boolean; //
Style: TAniIndicatorStyle; //TAniIndicatorStyle = (aiLinear, aiCircular);
{例}
AniIndicator1.Style := TAniIndicatorStyle.aiCircular;
它是怎么动起来的? 追源码, 发现它有一个 FAni: TFloatAnimation; 内部变量. 再就追出 TFloatAnimation 的父类 TAnimation; TAnimation 在 FMX.Types 单元, 看来是核心成员了. TAnimation 的子类们都在 FMX.Ani 单元: TFloatAnimation // TFloatKeyAnimation // TColorAnimation // TColorKeyAnimation // TGradientAnimation // TPathAnimation // TRectAnimation // TBitmapAnimation // TBitmapListAnimation // TFloatKeyAnimation // TColorKeyAnimation // 早在 TFmxObject(FMX 们的祖先)就有了一些动画相关的方法: StartAnimation(); // StopAnimation(); // StartTriggerAnimation(); // StartTriggerAnimationWait(); // StopTriggerAnimation(); // AnimateFloat(); // AnimateColor(); // AnimateFloatDelay(); // AnimateFloatWait(); // StopPropertyAnimation(); // 另在 FMX.Types 单元还有一些动画插入算法的一些公用函数(应该主要是内部使用): InterpolateSingle(); // InterpolateRotation(); // InterpolateColor(); // InterpolateLinear(); // InterpolateSine(); // InterpolateQuint(); // InterpolateQuart(); // InterpolateQuad(); // InterpolateExpo(); // InterpolateElastic(); // InterpolateCubic(); // InterpolateCirc(); // InterpolateBounce(); // InterpolateBack(); // 很多动画应该在设计时就可以方便完成, 在选择某些属性值时可直接添加动画, 如: //Bitmap 属性: Create New TBitmapAnimation Create New TBitmapListAnimation //Color 属性: Create New TColorAnimation Create New TColorKeyAnimation //Gradient 属性: Create New TGradientAnimation //Width、Height、X、Y、StrokeThickness、XRadius、YRadius、Opacity、RotationAngle 等属性: Create New TFloatAnimation Create New TFloatKeyAnimation 先尝试一个让控件转起来的动画吧: 添加一个 TRectangle, 从其 RotationAngle 属性 Create New TFloatAnimation (需要删除时, 选定后按 Delete), 然后调整自动建立的 FloatAnimation1 的属性值: //一般在设计时取值即可, 下面是运行时的代码: procedure TForm1.FormCreate(Sender: TObject); begin FloatAnimation1.Enabled := True; FloatAnimation1.Loop := True; FloatAnimation1.Duration := 2.5; //一个动画周期的长度(秒) FloatAnimation1.StartValue := 0; //起点角度 FloatAnimation1.StopValue := 360; //终点角度 end; 在设计时制作上面动画的另一方法: 1、添加 TRectangle(Rectangle1); 2、选定 Rectangle1 后添加 TFloatAnimation(FloatAnimation1); 3、修改 FloatAnimation1 的属性 PropertyName 值为 RotationAngle; 4、如上设置 FloatAnimation1 的其它属性. 完全在运行时实现上面动画的代码: uses FMX.Objects, FMX.Ani; //添加, 但不要重复添加
var
rect: TRectangle;
procedure TForm1.FormCreate(Sender: TObject);
begin
rect := TRectangle.Create(Self);
rect.Parent := Self;
rect.Align := TAlignLayout.alCenter;
with TFloatAnimation.Create(Self) do
begin
Parent := rect;
PropertyName := 'RotationAngle';
Enabled := True;
Loop := True;
Duration := 2.5;
StartValue := 0;
StopValue := 360;
end;
end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论