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

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

黄贤秋

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

阅读量1k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi button integer

本文链接：https://blog.youkuaiyun.com/rayhuang110/article/details/6534905

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.