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

问题描述

当向导窗口显示时，如何在所有控件的Inno Setup区域内更改光标？我的意思是像皮肤一样，当显示“ Inno设置”且可用时，皮肤可见。所以我的意思是，当鼠标位于Inno Setup中时，它具有自己的设计。

我尝试使用它，但是我不知道在哪里调用和使用它：

procedure SetControlCursor(Control: TControl; Cursor: TCursor);
var 
  I: Integer;
begin
  Control.Cursor := Cursor;
  if Control is TWinControl then
  begin
    for I := 0 to TWinControl(Control).ControlCount - 1 do
    begin
      SetControlCursor(TWinControl(Control).Controls[I],Cursor);
    end;
  end;
end;

解决方法

如果要在启动时更改所有控件的光标，只需从SetControlCursor调用InitializeWizard：

procedure InitializeWizard();
begin
  SetControlCursor(WizardForm,crHourGlass);
end;

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

inno-setup pascalscript