Question

delphi写程序的快捷键

我想让程序运行后按CTRL+B就触发一个事件,或者为某一个按钮设置快捷键,应该怎么写代码呢? 我菜鸟啊,昨天看的delphi,如果用词不准确,大家见谅

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
// ShowMessage(IntToStr(Key));
if (ssCtrl in Shift) and (Key = 66) then
begin
ShowMessage('你按下了Ctrl + B ');
end;
end;把Form的KeyPreView属性改为True 。

Answer 2

在对按钮的caption属性设置的时候名称后加上(&B)在运行就可以了，显示的时候会是（B）【B是有下划线的】