Home / Questions / 91888
Accepted
Angel Montes de Oca
Asked: 2020-08-01 13:55:51 +0800 CST 2020-08-01 13:55:51 +0800 CST

How to change the cursor at a certain point in Inno Setup?

  • 772

I need to make the cursor change while it is executing a specific task, return it to normal when finished.

inno-setup

1 Answers

  1. Best Answer

    There is a function on this page. Here the function: 

    procedure SetControlCursor(control: TWinControl; cursor: TCursor);
var i:Integer;
    wc: TWinControl;
begin
  if (not (control = nil)) then begin
    control.Cursor := cursor;
    try
      for i:=0 to control.ControlCount-1 do begin
        wc := TWinControl(control.Controls[i]);
        if (NOT(wc = nil)) then
          SetControlCursor(wc, cursor)
        else
          control.Controls[i].Cursor := cursor;
      end; {for}
    finally

    end;{try}
  end;{if}
end;{procedure SetControlCursor}

    You call like this:

      SetControlCursor(WizardForm, crHourGlass);

    To return to normal:

      SetControlCursor(WizardForm, crDefault);
    • 0