当用热键来执行button1click的时候，如果禁止焦点改变？
我先是在button1下写了个功能，然后又注册了个热键来执行button1的功能，但是每次按热键的时候，焦点就跑到button1上了，我并不希望这样，仅仅是想要执行功能而已。如何禁止焦点的改变？
我的思路是把button1click直接改成一个过程。如果可以，应该怎么改？请给出代码，谢谢。
比如：
procedure TForm1.button1Click(Sender: TObject);
begin
ShowMessage('你好');
end;

[解决办法]
procedure test;
begin
ShowMessage('你好');
end;

procedure TForm1.button1Click(Sender: TObject);
begin
test;
end;

热键里面不要执行Button1.Click;而直接执行test;即可
[解决办法]