Delphi 代码中如何设置快捷键

在Delphi代码中设置快捷键，可以使用TActionList和TActionManager组件来实现。下面是一个示例代码：

1. 在窗体上放置一个TActionManager组件（命名为ActionManager1）和一个TActionList组件（命名为ActionList1）。

2. 在ActionList1中添加一个TAction组件（命名为Action1）。

3. 在Action1的ShortCut属性中设置快捷键，例如Ctrl+O。

4. 在Action1的OnExecute事件中编写处理代码，例如打开一个文件对话框并加载选择的文件内容。

procedure TForm1.Action1Execute(Sender: TObject);
begin
  // 处理代码
  if OpenDialog1.Execute then
  begin
    // 加载文件内容
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
end;

5. 在窗体的OnCreate事件中，将Action1添加到ActionManager1的Actions属性中。

procedure TForm1.FormCreate(Sender: TObject);
begin
  ActionManager1.Actions.Add(Action1);
end;

这样，当用户按下Ctrl+O时，Action1的OnExecute事件会被触发，执行相应的处理代码