检测窗体的Alt键

brucezhao

2. procedure TForm1.FormShortCut(var Msg: TLMKey; var Handled: Boolean);
3. begin
4.   if ((Msg.KeyData shr 16) and 8192{KF_ALTDOWN} <> 0) then begin
5.     Handled := true;
6.     ShowMessage('Alt key be pressed!.');
7.   end;
8. end;  

复制代码

考虑到跨平台，所以只能用8192，KF_ALTDOWN在Windows单元中定义。
以上代码在Lazraus 0.9.27中验证通过。

猫工

可以在win和linux下通过吗？

zeus-chu

怎么检测 Alt 键被释放呢？

brucezhao

引用第1楼猫工于2009-07-20 11:45发表的  :
可以在win和linux下通过吗？

因为我特意去掉了Windows单元，所以应该可以在Linux下用。