如何为firemonkey TForm OnKeyDown事件分配快捷方式：

Question

我在使用表单的OnKeyDown事件为Firemonkey上的TabItem分配快捷方式时遇到了麻烦。

似乎ctrl键的工作方式就像它被反复按下和释放一样。

这是我正在尝试做的事情：

procedure TfrmPrincipal.FormKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
   if ssCtrl in Shift then
   begin
      if UpperCase(KeyChar) = 'L' then
       TabItem1.SetFocus;
   end;
end;

它不起作用，经过一段时间的谷歌搜索后发现了很多VCL驱动的答案，我找不到任何可以帮助我使用Firemonkey的东西。

我正在使用东京10.2.2

任何提示？

提前致谢。

Answer 1

您最好使用带有操作的动作列表：

procedure TTabbedForm.Action1Execute(Sender: TObject);
begin
  TabControl1.ActiveTab := TabItem1;
end;

object ActionList1: TActionList
  Left = 176
  Top = 272
  object Action1: TAction
    Text = 'Action1'
    ShortCut = 16460
    OnExecute = Action1Execute
  end
end

关于您的代码：

TabItem1.SetFocus不起作用，请使用TabControl1.ActiveTab：= TabItem1;

FormKeyDown中的KeyChar在按下Ctrl键时没有值，请使用Key。