AlphaControls 控件TsPageControl的动画效果

AlphaControls 控件TsPageControl的动画效果

        

         AlphaControls 控件使用上，可以为用户提供非常亮丽的皮肤。使用中，通过对TsSkinManager的设置，可以得心应手。

        TsSkinManager的AnimEffects.PageChange属性，可以对TsPageControl的Page之间的切换，产生动画的效果。

         设置以下三个参数：

      1、Active是否启动动画
      2、Mode运画类型（模板）
           atcAero
           atcBlur
           atcBlur 2
           atcFade
           atcRunup
    3、Time动画延时时长

       代码：

  AlphaAnimPageActive:=sCheckBox1.Checked;
  AlphaAnimPageMode:=sComboBox1.Text;
  AlphaAnimPageTime:=StrToInt(sEdit3.text);
  MainFrm.sSkinManager1.AnimEffects.PageChange.Active:=AlphaAnimPageActive;
  MainFrm.sSkinManager1.AnimEffects.PageChange.Mode:=AlphaAnimPageMode;
  MainFrm.sSkinManager1.AnimEffects.PageChange.Time:=AlphaAnimPageTime;

         Page页面切换效果