【发布时间】：2013-01-15 21:33:33
【问题描述】：
在我的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;
我想知道这是否是正确/唯一的方法。
【问题讨论】：
-
拖动涉及一个新的模态循环。这不是你的选择。如果没有主人的合作，很难看出如何干净利落地做到这一点。
-
@DavidHeffernan，OP 说“就像在 TDragObject 中一样”，这只是一个例子，我假设 OP 只想要 ESC 键，仅此而已。 ESC 是一个对话框键。我现在没有 1 分钟的时间来查找代码/API/windows 消息。
-
@Cosmin 拖动操作的模态循环拥有并抽取队列。因此可以掌握按键。但是表单上的组件没有那么奢侈。你打算如何进入应用的消息循环？
-
如果 " 有一个点我想听关键事件" 仅表示特定的持续时间，您不必在整个生命周期内更换窗口过程的组件。顺便说一句，还有其他方法，例如安装消息挂钩 (
SetWindowsHookEx)，或拥有自己的消息循环...我想讨论 正确 方法需要了解确切的场景。 -
检查是否收到 WM_CANCELMODE 消息。这是 Windows 告诉您 Esc 键（或其他取消捕获/拖动的事件）必须结束的常用方式。