delphi写程序的快捷键
我想让程序运行后按CTRL+B就触发一个事件,或者为某一个按钮设置快捷键,应该怎么写代码呢?我菜鸟啊,昨天看的delphi,如果用词不准确,大家见谅...
我想让程序运行后按CTRL+B就触发一个事件,或者为某一个按钮设置快捷键,应该怎么写代码呢? 我菜鸟啊,昨天看的delphi,如果用词不准确,大家见谅
展开
展开全部
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 。
Shift: TShiftState);
begin
// ShowMessage(IntToStr(Key));
if (ssCtrl in Shift) and (Key = 66) then
begin
ShowMessage('你按下了Ctrl + B ');
end;
end;把Form的KeyPreView属性改为True 。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在对按钮的caption属性设置的时候名称后加上(&B)在运行就可以了，显示的时候会是（B）【B是有下划线的】
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
