Delphi 我的TComponent如何截获ESC键并进行处理？

在我的

TComponent

中，有一点我希望侦听键事件并截获

ESC

键并在我的组件中处理它，使用/吃“击键”，例如，所有者表单在该阶段不会处理它。就像在

TDragObject

中一样，当您开始拖动时，按

ESC

将其取消

问题是

TDragObject

具有

AllocateHWnd

，它的所有者表单会使用

CN\u键向下

通知它。但是没有人通知我的组件

是否需要将窗体的

WindowProc

替换为我自己的？如果是的话，那么可以这么说，如何“按部就班”地正确执行呢

---

我要说的是100%清楚：

TMyComponent = class(TComponent)

---

我做了一个小测试，它似乎有效：

TMyComponent = class(TComponent)
  private
    FOldWindowProc: TWndMethod;
    FParentForm: TCustomForm;
    procedure FormWindowProc(var Message: TMessage);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;    
end;

...

constructor TMyComponent.Create(AOwner: TComponent);
begin
  if not (AOwner is TWinControl) then
    raise Exception.Create('TMyComponent.Create: Owner must be a TWinControl');
  inherited Create(AOwner);
  // hook parent form
  FParentForm := GetParentForm(TWinControl(Owner));
  if Assigned(FParentForm) then
  begin
    FOldWindowProc := FParentForm.WindowProc;
    FParentForm.WindowProc := FormWindowProc;
  end;
end;

destructor TMyComponent.Destroy;
begin
  // unhook parent form
  if Assigned(FParentForm) then
    FParentForm.WindowProc := FOldWindowProc;
  inherited;
end;

procedure TMyComponent.FormWindowProc(var Message: TMessage);
begin
  FOldWindowProc(Message);
  if Message.Msg = CM_CHILDKEY then // CM_CHILDKEY -> CM_DIALOGKEY -> CM_DIALOGCHAR
  begin
    OutputDebugString('CM_CHILDKEY');
    if Message.WParam = VK_ESCAPE then
    begin
      Beep;
      // do my stuff...
      Message.Result := 1; // consume keystroke
    end;
  end;
end; 

---

我想知道这是否是正确的/唯一的方法。

一种方法可能是在组件内部创建一个

TApplicationEvents

对象，然后使用其

OnMessage

事件查看来自主线程消息队列的消息，例如击键，在剩下的VCL处理它们之前。

拖动涉及一个新的模式循环。这不是你的选择。很难看出，如果没有主机的合作，你怎么能干净利落地做到这一点。@DavidHeffernan，OP说“就像在TDragObject中一样”，这只是一个例子，我假设OP只是想要ESC键，没有更多，也没有更少。ESC是一个对话框键。我现在没有时间查找代码/API/windows消息。@Cosmin拖动操作的模式循环拥有并泵送队列。这样就可以掌握按键。但是表单上的组件并没有这样的奢华。您打算如何进入应用程序的消息循环？如果“有一个点我想监听关键事件”仅意味着特定的持续时间，您不必在组件的整个生命周期中替换窗口过程。顺便说一句，还有其他方法，比如安装消息挂钩（

SetWindowsHookEx

），或者拥有自己的消息循环。。。我想，讨论正确的方法需要知道确切的场景。检查是否收到WM_CANCELMODE消息。这是Windows通常告诉您Esc键（或取消捕获/拖动的其他事件）必须结束的方式。组件可以实际地这样做吗？如果应用程序分配OnMessage怎么办？这不是冲突吗？

TApplicationEvents

被设计为一个多播类。多个实例接收相同的事件。这样，当单个消息到达队列时，如果每个人都使用

TApplicationEvents

，则所有分配的

TApplicationEvents.OnMessage

处理程序都会获得DIB。如果有人直接使用

TApplication.OnMessage

，则

TApplicationEvents.OnMessage

可能会中断，反之亦然，是的。这不是一个完美的系统，但总比没有好。

OnMessage

来自多个

TApplicationEvents

组件的事件将按与创建这些组件时相反的顺序触发。您认为这是比像我那样挂接WindowProc更好的解决方案吗？另一种方法是使用

SetWindowsHookEx（）

创建特定于线程的键盘挂钩或getmessage/wndproc挂钩。这将比试图钩住VCL事件更加孤立。