delphi启动快捷键

Posted 2023-03-20

比如一个hello world！的delphi程序，点击“点我”显示hello world。但能不能使用快捷键启动，即按下F11或者单击“点我”，就显示hello world？
谢谢各位多多帮忙。

楼上回答是热键。。。。如果是一个键的话用下边方法。。。。。。。

1 如果你的窗体中的有按钮(其他控件）的话，必须激活按钮
button1.setfocus后，在button中keydown事件
加入 if key=vk_f11 then button1.click；
这个方法缺点是焦点容易丢失。
2（推荐)消息的方法。
在public 中加入
procedure detectkey(var msg:Tmsg;handle:boolean);
后
procedure tform1.detectkey(var msg:tmsg;handle:boolean);
begin
if (msg.message:=wm_keydown) and (msg.wParam=vk_f11) then
button1.click;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin

application.onmessage:=detectkey;
end;
由于在外地出差没有编译器，大致如此。。。。 参考技术A http://hi.baidu.com/83925com/blog/item/8b6c8ffcfb215786b901a0e2.html 参考技术B 比如按钮button1
他的caption属性button1(&H)
// 运行后直接按h就是单击这个按钮了
H就为这个按钮的快捷键
射程f11就不知道了