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.