Inno setup 如何在Inno设置中设置控件展开的动画

我想在我的安装程序中设置控件展开的动画

---

.

您可以使用计时器设置控件的动画

[代码]
函数SetTimer（hWnd:longword；nIDEvent，UERelease:longword；lpTimerFunc:longword）：
长词；外部的SetTimer@user32.dllstdcall'；
函数KillTimer（hWnd，nidfevent:LongWord）：LongWord；
外部的KillTimer@User32.dllstdcall'；
变量
主面板：布尔；
动画定时器：长单词；
过程AnimationTimerProc(
H:LongWord；Msg:LongWord；IdEvent:LongWord；Time:LongWord）；
变量
L：整数；
开始
L:=WizardForm.MainPanel.Left+ScaleX（5）；
如果L>0，则
开始
L:=0；
KillTimer（0，AnimationTimer）；
结束；
WizardForm.MainPanel.Left:=L；
结束；
过程CurPageChanged（CurPageID:Integer）；
开始
如果WizardForm.OuterNotebook.ActivePage=WizardForm.InnerPage，则
开始
如果没有，那么
开始
AnimationTimer:=SetTimer（0,0,5，CreateCallback（@AnimationTimerProc））；
WizardForm.MainPanel.Left:=-WizardForm.MainPanel.Width；
MainPanelAnimated:=真；
结束；
结束；
结束；

对于，您需要Inno设置6。如果您坚持使用Inno Setup 5，则可以使用库中的

WrapCallback

函数

（动画实际上比图像显示的更平滑）

有关从右向左的动画，请参见