在delphi根据TshiftState值来判断用户按下Ctrl,shift,alt等键的方法

最新推荐文章于 2020-04-13 14:32:33 发布

原创最新推荐文章于 2020-04-13 14:32:33 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #button #integer

本文介绍了一个Delphi程序中的鼠标按下事件处理过程，并详细解释了如何通过检查Shift状态集合来判断是否有按下Ctrl键。此外，还列举了Shift状态集合中包含的各种成员及其含义。

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssCtrl in shift then
ShowMessage('ssCtrl');

shift 是一个集合变量。type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);

Value Meaning

ssShift              The Shift key is held down.
ssAlt                 The Alt key is held down.
ssCtrl               The Ctrl key is held down.
ssLeft               The left mouse button is held down.
ssRight            The right mouse button is held down.
ssMiddle           The middle mouse button is held down.
ssDouble         The mouse was double-clicked.