TWinControl 的助手

Question

我喜欢“覆盖” TWinControl.CNKeyDown，将 Enter 键用作 Tab，而不修改原始 VCL 源。 我也这样做，使用 SetFocus，witch 效果很好。

帮助器类型声明为：

type
   TWinControlEx = class helper for TWinControl
   private
       procedure SetFocus; reintroduce;
       procedure CNKeyDown(var Message: TWMKeyDown); reintroduce;
   end;

被覆盖的方法如下：

if (Message.CharCode = 13) and (Pos('Cr_To_Tab',ImeName)>0) and (Pos('No_Cr_To_Tab',ImeName)=0) then
      begin
        if not ((GetKeyState(VK_CONTROL) and not $7FFF) <> 0) then
        begin
          Message.CharCode := 9;
        end;
      end;
   Message.CharCode := 9;
   inherited;

但似乎我的代码运行时，它仍然使用原始版本。另一个令人沮丧的事情是我无法调试问题，因为当我在 CNKeyDown 方法中放置一个断点时，它永远不会停止，并且 IDE (RAD Studio 10.2) 在其中放置了一个叉号。

谁能给我一些指导？

Answer 1

您不能像尝试那样使用类助手重新引入现有方法的新版本。

类助手不是解决方案。您需要改为：

1. 从所需的原始类派生一个新类，如TEdit，override 其适用的virtual/dynamic 方法，如WndProc()、KeyDown() 等，然后创建运行时自定义类的实例而不是原始类。您可以在设计时在 IDE 中安装自定义类，也可以将您的类实现为 Interposer，以便它仅在运行时覆盖原始类。有关详细信息，请参阅Two Approaches to Sub-classing Components Compared。

2. 根本不派生新类。只需在运行时将原始类的所需对象实例的WindowProc 属性子类化即可。然后你可以在他们之前处理他们的窗口消息。

Answer 2

通常，您不必修改 VCL 源来扩展 TWinControl 的后代，因为它有一大堆 virtual 方法，可以使用 override 关键字在后代类中扩展。 SetFocus 就是这样一个虚方法。

我想知道，你是否真的需要重新实现TWinControl.CNKeyDown。你不能直接覆盖TWinControl.KeyDown吗？

恰好TWinControl.KeyDown也是一个虚方法。
实际上，TWinControl.KeyDown 被声明为 dynamic 但这只是一件小事，因为 dynamic 方法是 semantically equivalent 并且可以被覆盖为“普通”virtual 声明的方法。

关键字reintroduce仅在通过声明具有相同名称的方法而将虚拟方法隐藏在后代类中时使用。然后编译器会发出警告，可以通过使用reintroduce 关键字来避免。

您的课程应该如下所示：

界面

TWinControlEx = class(TWinControl)
protected
  procedure KeyDown(var Key: Word; Shift: TShiftState); override;
public
  procedure SetFocus; override;
end;

实现

procedure TWinControlEx.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) and not (ssCtrl in Shift) then
    Key := VK_TAB;
  inherited;
end;

procedure TWinControlEx.SetFocus;
begin
  // do something and/or call
  inherited;
end;