使用快捷键 BkSp 进行全球征税

Question

我将快捷键设置为 BkSp（退格键）的 TAction。我正在尝试像在网络浏览器中那样实现后退按钮，所以我需要在除编辑控件（TMemo、TEdit 等）之外的任何控件中调用 TAction。

一切按预期工作，但退格键未发送到编辑控件（因此用户无法删除字符）。

OnExecute 看起来像：

if (Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomEdit) then exit;
DoBack;  

任何想法通过 BkSp 键 trought TAction 来编辑控件（适用于所有平台 Win、Mac、Linux）？

Answer 1

解决方案很简单，基于 Andreas Rejbrand 的评论，与 Delphi 中的相同。

OnUpdate 采取行动：

procedure TForm1.aBackUpdate(Sender: TObject); 
begin 
   aBack.Enabled := not (Screen.ActiveControl is TCustomEdit); 
end;

OnExecute 进行操作：

procedure TForm1.aBackExecute(Sender: TObject); 
begin 
   DoBack;
end;