Inno setup 在所有Inno设置控件内更改鼠标光标

Inno setup 在所有Inno设置控件内更改鼠标光标,inno-setup,pascalscript,Inno Setup,Pascalscript,当向导窗口出现时,如何在所有控件上的Inno设置区域内更改光标?我的意思是像皮肤一样,当Inno设置显示并可用时,皮肤是可见的。所以我的意思是,当鼠标位于Inno设置中时,它有自己的设计 我尝试过使用它,但我不知道在哪里调用和使用它: 过程SetControlCursor(控件:TControl;光标:TCursor); 变量 I:整数; 开始 Control.Cursor:=游标; 如果控制是TWinControl,那么 开始 对于I:=0到TWinControl(Control)。Contr

当向导窗口出现时,如何在所有控件上的Inno设置区域内更改光标?我的意思是像皮肤一样,当Inno设置显示并可用时,皮肤是可见的。所以我的意思是,当鼠标位于Inno设置中时,它有自己的设计

我尝试过使用它,但我不知道在哪里调用和使用它:

过程SetControlCursor(控件:TControl;光标:TCursor);
变量
I:整数;
开始
Control.Cursor:=游标;
如果控制是TWinControl,那么
开始
对于I:=0到TWinControl(Control)。ControlCount-1 do
开始
SetControlCursor(TWinControl(Control).Controls[I],Cursor);
结束;
结束;
结束;

如果您想在开始时更改所有控件的光标,只需从
InitializeWizard
调用您的
SetControlCursor

procedure InitializeWizard();
开始
SetControlCursor(WizardForm,crHourGlass);
结束;

不过,我不明白您为什么要这样做。

我这样做,因为我使用的是皮肤,所以如果光标改变,效果会更好。如何加载自己的光标?您不能使用
SetControlCursor
函数设置完全自定义的光标。只能将光标更改为某个标准光标。这就是为什么你的问题没有意义。您的问题甚至没有提到要使用某个自定义光标。