- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在从源代码构建 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;
因此,我创建了一个私有(private)属性 NoShort,它通过公共(public)属性 NoShortcut 访问,并在过程 CMDialogChar 中使用(我想在特定情况下禁用,可以通过快捷方式激活按钮)。我还想实现一些其他的东西,但它们会导致同样的问题:
我可以通过这些修改编译 Inno Setup,没有任何问题(我使用 Delphi 2009 来获得 unicode 支持),并且还可以创建安装程序。但是,当我尝试访问 .iss 文件中的新属性 NoShortcut(例如“WizardForm.NextButton.NoShortcut := true;”)时,Inno 编译器会停止并出现错误
Unknown Identifier 'NOSHORTCUT'
我是否必须以特殊方式注册这些新属性和属性才能在我的 iss 文件中使用它们?任何帮助将不胜感激:D
最佳答案
正如 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;
为了使其最终工作,必须在 ScriptClassesLibraryRegister_C
方法中调用 RegisterTNewButton_C
并相应地在 ScriptClassesLibraryRegister_R
中调用 RegisterTNewButton_R
.
此外,我还删除/注释了之前注册 TNewButton 的行(在 RegisterBidiCtrls_C
和 RegisterBidiCtrls_R
中),以避免组件注册两次时可能出现的错误。但不知道有没有必要。
关于delphi - 从源代码构建 Inno-Setup 时访问新属性/属性?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18186556/
你能比较一下属性吗 我想禁用文本框“txtName”。有两种方式 使用javascript,txtName.disabled = true 使用 ASP.NET, 哪种方法更好,为什么? 最佳答案 我
Count 属性 返回一个集合或 Dictionary 对象包含的项目数。只读。 object.Count object 可以是“应用于”列表中列出的任何集合或对
CompareMode 属性 设置并返回在 Dictionary 对象中比较字符串关键字的比较模式。 object.CompareMode[ = compare] 参数
Column 属性 只读属性,返回 TextStream 文件中当前字符位置的列号。 object.Column object 通常是 TextStream 对象的名称。
AvailableSpace 属性 返回指定的驱动器或网络共享对于用户的可用空间大小。 object.AvailableSpace object 应为 Drive 
Attributes 属性 设置或返回文件或文件夹的属性。可读写或只读(与属性有关)。 object.Attributes [= newattributes] 参数 object
AtEndOfStream 属性 如果文件指针位于 TextStream 文件末,则返回 True;否则如果不为只读则返回 False。 object.A
AtEndOfLine 属性 TextStream 文件中,如果文件指针指向行末标记,就返回 True;否则如果不是只读则返回 False。 object.AtEn
RootFolder 属性 返回一个 Folder 对象,表示指定驱动器的根文件夹。只读。 object.RootFolder object 应为 Dr
Path 属性 返回指定文件、文件夹或驱动器的路径。 object.Path object 应为 File、Folder 或 Drive 对象的名称。 说明 对于驱动器,路径不包含根目录。
ParentFolder 属性 返回指定文件或文件夹的父文件夹。只读。 object.ParentFolder object 应为 File 或 Folder 对象的名称。 说明 以下代码
Name 属性 设置或返回指定的文件或文件夹的名称。可读写。 object.Name [= newname] 参数 object 必选项。应为 File 或&
Line 属性 只读属性,返回 TextStream 文件中的当前行号。 object.Line object 通常是 TextStream 对象的名称。 说明 文件刚
Key 属性 在 Dictionary 对象中设置 key。 object.Key(key) = newkey 参数 object 必选项。通常是 Dictionary 
Item 属性 设置或返回 Dictionary 对象中指定的 key 对应的 item,或返回集合中基于指定的 key 的&
IsRootFolder 属性 如果指定的文件夹是根文件夹,返回 True;否则返回 False。 object.IsRootFolder object 应为&n
IsReady 属性 如果指定的驱动器就绪,返回 True;否则返回 False。 object.IsReady object 应为 Drive&nbs
FreeSpace 属性 返回指定的驱动器或网络共享对于用户的可用空间大小。只读。 object.FreeSpace object 应为 Drive 对象的名称。
FileSystem 属性 返回指定的驱动器使用的文件系统的类型。 object.FileSystem object 应为 Drive 对象的名称。 说明 可
Files 属性 返回由指定文件夹中所有 File 对象(包括隐藏文件和系统文件)组成的 Files 集合。 object.Files object&n
我是一名优秀的程序员,十分优秀!