我想定义一个组合键来实现BUTTON的onclick 事，怎么做？是不是在onkeydown事件里！

Question

：_

Answer 1

在Caption里定义&S,&A表示ALT+S、ALT+A

Answer 2

form的keypreview设置为True
procedure tform1.formkeydown(sender:tobject;var key:word;shift:Tshiftstate);
begin  //ctrl+alt+q
  if (ssCtrl in Shift) and (ssAlt in Shift) and (key=ORD('Q')) then
     button1.onclick(nil);
end;

Answer 3

form的keypreview设置为True
procedure tform1.formkeydown(sender:tobject;var key:word;shift:Tshiftstate);
begin  //ctrl+alt+q
  if (ssCtrl in Shift) and (ssAlt in Shift) and (key=ORD('Q')) then
     button1.onclick(nil);
end;