delphi - 退格检测

Question

仅当光标在Timage组件上方时才有可能检测到退格键的按下（例如事件）吗？此快捷方式必须触发与TImage有关的专用图像处理。

Answer 1

我只在鼠标进入或离开图像（OnMouseEnter，OnMouseLeave）时启用/禁用它们的按键检测事件。

您只需要在Form上具有BackDetection函数（与TKeyEvent兼容）：

procedure MyForm.BackDetection(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Key = VK_BACK then begin
    ... 
    ... Your image-processing code
    ...
  end;   
end;

这确实要求 KeyPreview是 True。

然后，您只需设置此事件，或在鼠标进入或离开图像时将其禁用。

procedure MyForm.MyImageOnMouseEnter(Sender: TObject);
begin
  OnKeyPress := BackDetection;
end;

procedure MyForm.MyImageOnMouseLeave(Sender: TObject);
begin
  OnKeyPress := nil;
end;