标签：begin end 支持 Start TAnimation ++++++++++ 回调 procedure

TAnimation有一个动画结束事件，当动画完成后触发这个事件，但是没有提供回调支持，就是在Start一个动画时，就指定完成后调用的方法。查看QC，有人早就提到了这个需求：

https://quality.embarcadero.com/browse/RSP-20802,遗憾的是，Delphi 11.1也没能实现，不得矣，自己加了一下：

//为TAnimation重载一个Start方法：

//++++++++++ by 红鱼儿
procedure Start(AFinishCallback:TFinishCallback);overload;
//++++++++++ by 红鱼儿

代码实现：

//++++++++++ by 红鱼儿
procedure TAnimation.Start(AFinishCallback: TFinishCallback);
begin
  FFinishCallback:=AFinishCallback;
  Start;
end;
//++++++++++ by 红鱼儿

再修改DoFinish方法：

procedure TAnimation.DoFinish;
begin
 //++++++++++ by 红鱼儿
  if Assigned(FFinishCallback) then
     FFinishCallback(Self)
  else
 //++++++++++ by 红鱼儿
  if Assigned(FOnFinish) then
    FOnFinish(Self);
end;

OK，现在调用一下：

procedure TCameraForm.PlayFormAnimationOut;
var
  fa: TFloatAnimation;
begin
  fa := Self.FindComponent('FloatAnimation2_') as TFloatAnimation;
  if fa <> nil then
  begin
    fa.Start(procedure(Sender:TObject)//使用回调函数来处理动画完成后的动作
             begin
                 Close;
             end);
  end
end;

万事大吉！

需要代码的同学可以联系我，免得自己再改了。

标签：begin,end,支持,Start,TAnimation,++++++++++,回调,procedure
来源： https://www.cnblogs.com/kinglandsoft/p/16199300.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。