delphi - Firemonkey 加速键

Question

我正在寻找一种方法来注册accelerator key标准方式以外的其他方式，即当带有 的文本accelerator key设置为tLabel.

我用谷歌搜索了很多，并没有找到任何类似的东西。

此外，在其他问题中，建议在设置父级之后在创建时设置Label'sText 属性，但这不起作用，因为Text 和 Parent 属性可能在运行时动态设置。Form'sLabel'sLabel's

假设表单有 a TEdit、 aTLabel和 a ，分别TRectangle命名为和，下面是一个简短的代码示例MyEditMyLabelMyRect

...
interface
type
tMyForm = class (TForm)
...
 procedure FormCreate (Sender: tObject);
...
end;
...
implementation
tMyForm.FormCreate (Sender: tObject);
begin
  ...
  MyLabel.FocusControl := MyEdit;
  MyLabel.Text := '&Label';
  MyLabel.Parent := MyRect; // after this setting
                            //   the accelerator key stop working
// I need some code here that makes the accelerator key work, no matter where 
// I set the TLabel's Text and Parent properties
  ...
end;