delphi - 在设计时以某种方式覆盖 Delphi 默认程序？

Question

在设计时以某种方式覆盖 Delphi 默认程序？

我需要在设计时覆盖 InstanceSize，我在运行时使用 FastCode 方法:

FastcodeAddressPatch(FastcodeGetAddress(@SInstanceSize), @TWinControl.RfInstanceSize);

但是，有没有办法在设计时做到这一点？

建议中的 Tks

Answer 1

“设计时间”实际上只是“运行时间”，但在 IDE 的上下文中，而不是在程序的上下文中。将您的代码放入设计时包中并将其加载到 IDE 中。 IDE 将调用所有 Register程序包单元中的程序，此时您可以运行所需的任何代码。

创建一个新的包项目(.dpk 文件)。

设置项目首选项，使其成为设计时包。

向其中添加一个新的空白单元。

将过程添加到名为 Register 的接口(interface)部分.它必须有一个大写的 R 和其余的小写。

随心所欲地实现该过程(例如通过调用您的电话到FastcodeAddressPatch 那里)。

编译并安装包。

我对您在第 5 步中尝试执行的操作有点警惕，但我会让您自己解决。