关于开发中使用的快捷键的问题

Question

delphi自带啊你仔细看控件的属性

Answer 1

你可以定义一个热键消息WM_HOTKEYtype
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  procedure hotkey(var msg:tmessage);message wm_hotkey; //定义快捷键过程
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  id:integer;
implementation{$R *.dfm}
procedure tform1.hotkey(var msg:tmessage); //快捷键触发过程
begin
showmessage('成功');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
id:=globaladdatom('hotkey'); //向windows加入全局原子
registerhotkey(handle,id,mod_control,65);//登记快捷键CTRL+A
end;