冥界3大法王 发表于 2023-1-26 17:48

为啥Alt+1菜单组合键没反应？

为PopupMenu1中手动添加热键的代码：

https://static.52pojie.cn/static/image/hrline/2.gif

procedure TForm5.FormCreate(Sender: TObject);
var
sState: TShiftState;
begin
Include(sState, ssCtrl);
CuiCui1.ShortCut := ShortCut(37, sState);      //Ctrl←

Include(sState, ssAlt);
CuiCui2.ShortCut := ShortCut(49, sState);      //Alt+1改成 Ctrl+1咋 就行了呢？{:301_974:}
end;


procedure TForm5.CuiCui1Click(Sender: TObject);
begin
ShowMessage('我是Ctrl←');
end;

procedure TForm5.CuiCui2Click(Sender: TObject);
var
sState: TShiftState;
begin
ShowMessage('我是Alt+1');
end;

冥界3大法王 发表于 2023-1-26 20:01

bindundun 发表于 2023-1-26 19:40
呃，英语啄实有点看不懂

拜托。。。就别献了。。。{:301_1008:}

cxl 发表于 2023-1-26 20:45

可能两个键功能不一样,还要排除windows热键组合冲突
页: [1]
查看完整版本: 为啥Alt+1菜单组合键没反应？


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn