CODEWITHSUNDEEP
inno-setuppascalscript
Inside Man
Inside Man

Reputation: 4309

Change mouse cursor inside all of Inno Setup Controls

How to change the cursor while it is inside the Inno Setup's area on all controls when the wizard window shows up? I mean like a skin, when the Inno Setup is showing and available the skin is visible. So I mean when the mouse is inside the Inno Setup, it has its own design.

I tried to use this but I do not know where to invoke and using it:

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;

Upvotes: 0

Views: 175

Answers (1)

pimpo
pimpo

Reputation: 469

If you want to change a cursor of all controls on start, just call your SetControlCursor from InitializeWizard:

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

Though, I do not understand why would you want to do that.

Upvotes: 1

Related Questions