TsPageControl page change animation

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #53451
    Support
    Keymaster

      Hello

      This animation is not needed in most cases when developer changes ActivePage by code.

      But you can make this animation manualy, look this code:

      Code:
      uses sConst, sVCLUtils;

      procedure TForm3.sButton1Click(Sender: TObject);
      begin
      sVCLUtils.PrepareForAnimation(sPageControl1, atcFade);
      sPageControl1.ActivePageIndex := 1;
      sVCLUtils.AnimShowControl(sPageControl1, 300, 255, atcFade);
      end;

    Viewing 1 post (of 1 total)
    • You must be logged in to reply to this topic.