4

我在从源代码构建 Inno Setup 时遇到了一点问题。我想修改TNewButton类型以在设置按钮中添加更多功能。例如,我将类型声明从

TNewButton = class(TButton)
protected
  procedure CreateParams(var Params: TCreateParams); override;
end;

TNewButton = class(TButton)
  procedure CMDialogChar( var Msg: TCMDialogChar); message cm_DialogChar;
private
  FNoShortcut : Boolean;
protected
  procedure CreateParams(var Params: TCreateParams); override;
public
  property NoShortcut : Boolean read FNoShortcut write FNoShortcut;
end;

所以我创建了一个私有属性NoShort,它可以通过公共属性NoShortcut访问,并在过程CMDialogChar中使用(我想在特定情况下禁用,可以通过快捷方式激活按钮)。我还想实现一些其他的东西,但它们会导致同样的问题:

我可以毫无问题地用这些修改编译 Inno Setup(我使用Delphi 2009来获得 unicode 支持)并且还能够创建一个安装程序。但是,当我尝试访问 .iss 文件中的新属性NoShortcut(例如“WizardForm.NextButton.NoShortcut := true;”)时,Inno 编译器会因错误而停止

Unknown Identifier 'NOSHORTCUT'

我是否必须以特殊方式注册这些新属性和属性才能在我的 iss 文件中使用它们?任何帮助将不胜感激:D

4

1 回答 1

4

正如 TLama 指出的那样,新的标识符必须同时在ScriptClasses_C.pas和中注册ScriptClasses_R.pas。在问题的问题上更具体一点:

ScriptClasses_C.pas我创建了一个过程RegisterTNewButton_C让编译器知道我的按钮的新标识符:

procedure RegisterTNewButton_C(Cl: TPSPascalCompiler);
begin
  with Cl.AddClassN(Cl.FindClass('TButton'), 'TNewButton') do
  begin
    RegisterProperty('NoShortcut', 'Boolean', iptrw);
  end;
end;

ScriptClasses_R.pas我基本上做同样的事情,但我还必须实现新标识符的getter和setter:

procedure TNewButtonNoShortcut_R(Self: TNewButton; var T: Boolean); 
begin 
  T := Self.NoShortcut;
end;

procedure TNewButtonNoShortcut_W(Self: TNewButton; const T: Boolean); 
begin 
  Self.NoShortcut := T; 
end;

procedure RegisterTNewButton_R(CL: TPSRuntimeClassImporter);
begin
  with CL.Add(TNewButton) do
  begin
    RegisterPropertyHelper(@TNewButtonNoShortcut_R,@TNewButtonNoShortcut_W,'NoShortcut');
  end;
end;

为了使它最终起作用,必须在RegisterTNewButton_C方法中相应地ScriptClassesLibraryRegister_C调用。RegisterTNewButton_RScriptClassesLibraryRegister_R

此外,我删除/注释了之前注册 TNewButton 的行(inRegisterBidiCtrls_C和 in RegisterBidiCtrls_R)以避免在组件注册两次时可能出现的错误。但我不知道这是否有必要。

于 2013-08-12T13:41:37.987 回答