快捷键的问题？

Question

你可以通过ActionList设置快捷键，
再通过按钮的Action联起来。

Answer 1

哎，教你一个笨方法，放一个PopupMenu，通过它就可以实现了。

Answer 2

breezing(网上的小鱼) :在caption上写上：&S 查找，快捷键则为alt+s

Answer 3

首先设置Form的KeyPreview属性为True.
在Form的onkeypress事件中写
if key = VK_F8 then showmessage('abcd');

Answer 4

首先设置Form1的KeyPreview属性为True.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift<>[] Then Exit;
  case Key of
    VK_F2:
      if BtnAdd.CanFocus then
      begin
        Key := 0;
        BtnAdd.SetFocus;
        BtnAddClick(nil);
      end;
     ........
   end;
end;