delphi - 我的 TComponent 如何拦截 ESC 键并处理它？

Question

在我的TComponent中，有一个点我想监听按键事件并拦截ESC键并在我的组件中处理它，消耗/“吃”击键，因此所有者表单在该阶段不会处理它。就像在 TDragObject 中一样，当您开始拖动并按 ESC 取消它时。

问题是 TDragObject 具有 AllocateHWnd，它由其所有者表单通过 CN_KEYDOWN 通知。但没有人通知我的组件。

我需要将表单的 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; 

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

Answer 1

一种方法可能是在组件内部创建一个 TApplicationEvents 对象，然后使用其 OnMessage 事件来查看主线程消息队列中的消息，例如击键，然后 VCL 的其余部分处理它们。