修改VCL组件代码

Question

我需要更改组件中的功能。当您收到“您无法覆盖此”消息，或者您需要更改私有方法中的代码（“基类中不存在该方法”消息），导致组件无法下降时，您该怎么办？

Answer 1

如果我遇到这个问题，

• 我首先尝试从组件或其 CustomXXX 祖先继承，看看是否可以解决问题。如果没有，
• 我会更深入，即尝试拦截传入的消息。这可以动态完成。如果事实证明这太深了，因为必须构建的代码太广泛，或者如果我仍然必须访问我无法访问的项目，
• 我会尝试 hack。一种技巧是将组件和依赖代码复制到具有不同名称的新单元，重命名组件并修改需要修改的内容。
• 有时我只需要重做一两个方法就可以使我的新行为成为可能。

永远不要忘记给单元一个不同的名称，也给组件一个不同的名称（可能继承自原始组件或其祖先之一，因此它们保留在同一层次结构中）。 切勿修改原始源代码然后重新编译 VCL。这是维护的噩梦。

我不喜欢插入器类，即与原始类具有相同名称但行为不同、继承自原始类的类。它们的功能取决于 use 子句中包含的顺序，这对我来说似乎很不稳定。我不能推荐这样做。

但我做什么很大程度上取决于问题。我认为人们不能（或应该）给出涵盖所有情况的一揽子建议。

但我的主要建议是：不要修改原始单位，始终将新代码放入新单位中，并且使用新类名。这样原始版本和修改版本就可以和平共存，在 IDE 中也是如此。

Answer 2

在修改私有方法或其中的行为时，有一些（主要是 hacky）选项：

• 修改原始源，重新编译单元并按照建议使用更改后的 dcu 此处；从来没有这样做过，但我认为当您的代码使用新的 dcu 但其他 VCL 代码
• 通常不会由大量窗口消息控制组件行为时，这可能会让您很头痛 - 看看您是否可以通过修改某些内容的反应来实现更改这些消息；您可以覆盖消息处理方法（带有 message 关键字的方法），即使它们被声明为私有，您也可以替换 WndProc
• 您可以使用像 this 正在修改转换，
• 您可以使用一些绕行机制，如答案此处

或者您可以获得另一个组件。