Question

在安装期间,我利用Inno安装机设立了一个装置,对系统的某些价值(管理钥匙、某些档案......)进行了一些长时间的操作,在此期间,没有向用户展示接口,我的确在启动电离层功能。

我想知道的是,如果我能改变使用点,而我做的是所有这些检查,那么使用者知道正在发生的事情。

我认为,我可以造成一种磨难,不停地要求改变治疗师的病房内的职能,但我不想另作一番 d,如果能够用帕斯卡的描述来做,我就错了。

得到帮助。

Answer 1

摘自:。

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}

并将其定在小时数上:

SetControlCursor(WizardForm, crHourGlass);

恢复正常:

SetControlCursor(WizardForm, crDefault);

Answer 2

最近版本的Inno Setup可能发生了一些变化,但我无法从Mirtheil获得工作答案。

相反,我是这样说的:

procedure SetControlCursor(oCtrl: TControl; oCurs: TCursor);
var 
  i     : Integer;
  oCmp  : TComponent;
begin
  oCtrl.Cursor := oCurs;
  for i := 0 to oCtrl.ComponentCount-1 do
  begin
    oCmp := oCtrl.Components[i];
    if oCmp is TControl then
    begin
      SetControlCursor(TControl(oCmp), oCurs);
    end;
  end;
end;

a. 安装一个小时镜子:

SetControlCursor(WizardForm, crHourGlass);

2. 重整数小时镜子:

SetControlCursor(WizardForm, crDefault);

希望能帮助人们!

Answer 3

混淆了@mirtheil和@Sirp的答复中的好部分,这是对最佳解决办法的敌意:

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;

Set hour :

SetControlCursor(WizardForm, crHourGlass);

2. 重新确定违约曲线:

SetControlCursor(WizardForm, crDefault);

友情链接