如何给一个Button连热键

Question

在Caption上使用 $ 来连的话，是会把快捷键显示出来的。
如果我不想显示出来，该如何做？

Answer 1

因为使用的是 TBitBtn，按钮上的文字做了美化，不需要把快捷键显示出来

Answer 2

放个ACTIONlist 就可以了 加action  button action属性指定就可以了

Answer 3

public
  procedure HotKeyDown(var Msg:TMessage);message WM_HOTKEY;var
  HotKeyIdUp:Integer; procedure TForm1.FromCreate(Sender:TObject);
begin
  HotKeyIdUp:=GlobalAddAtom('HotKeyUp');
  RegisterHotKey(Handle,HotKeyIdUp,MOD_ALT,VK_UP);
end;procedure TForm1.HotKeyDown(var Msg:TMessage);
begin
  if (Msg.LParamLo=MOD_ALT) and (Msg.LParamHi=VK_UP) then BitBtn1.Click;
end;procedure TForm1.FormClose(Sender:TObject);
begin
  UnRegisterHotKey(Handle,HotKeyIdUp);
end;以上代码没有进行测试，提供个例子，请楼主自行测试，学习，网上资料很多

Answer 4

ACTIONlist 就可以了 加action  button action属性指定就可以

Answer 5

4楼的是全局热键，用ActionList不错，也不会冲突。

Answer 6

说句实话，我还没用过actionlist，真是脸红了哦

Answer 7

呵呵，我也没用过，两个方法都是好方法。最后采用了直接用api，结贴给分了啊