procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
Label1.Caption := ShortCutToText(ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData)));
end;
移动
+
控制键
+
0
移动
+
控制键
+
移动
+
控制键
+
移动
+
控制键
+
0
移动
+
0
,
控制键
+
0
移动
+
控制键
+
Alt
+
0
显示良好。
移动
和
控制键
0
按键被按下。
Delphi IDE在Vista下也有同样的问题。
控制键
+
移动
+
控制键
+
移动
+
0