delphi 新奇特功能--Tbutton-bsCommandLink-鼠标点击后 动画显示--超人性化 日

1.首先来看imagelist中的图片

----

 

 

2.HotImageIndex产生的效果,就是鼠标放上去的时候,HotImage显示出来如下：

 

 

------------------

3.超人性化功能来了---

 

--

这个的效果是点击之后,自动闪烁显示，切换imageindex和这个imageindex对应的图像，意思是当前这个按钮被点击了，