是否同时按下了 Ctrl 和 Shift 键

//不少鼠标与键盘事件用到了集合参数: Shift: TShiftState;
TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen);

{判断是否按下了 Ctrl 键: 方法一}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if ssCtrl in Shift then Text := ‘Ctrl‘; //包含
end;

{判断是否按下了 Ctrl 键: 方法二}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if [ssCtrl] = Shift then Text := ‘Ctrl‘; //只有
end;

{判断是否同时按下了 Ctrl 和 Shift 键: 方法一}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if (ssCtrl in Shift) and (ssShift in Shift) then Text := ‘Ctrl, Shift‘; //包含
end;

{判断是否同时按下了 Ctrl 和 Shift 键: 方法二}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if [ssCtrl, ssShift] = Shift then Text := ‘Ctrl, Shift‘; //只有
end;

{判断是否同时按下了 Ctrl 和 Shift 键: 方法三}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if [ssCtrl, ssShift] <= Shift then Text := ‘Ctrl, Shift‘; //包含
end;

{判断是否同时按下了 Ctrl 和 Shift 键: 方法四}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if [ssCtrl, ssShift] * Shift = [ssCtrl, ssShift] then Text := ‘Ctrl, Shift‘; //只有
end;

{判断是否同时按下了 Ctrl 和 Shift 键: 方法五}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Text := ‘‘;
  if [ssCtrl, ssShift] - Shift = [] then Text := ‘Ctrl, Shift‘; //只有
end;

时间: 2024-10-23 18:52:01

是否同时按下了 Ctrl 和 Shift 键的相关文章

Linux下的ctrl常用组合键

在linux的命令模式下使用ctrl组合键能让操作更便捷. ctrl + k -- 剪切光标及其后边的内容: ctrl + u -- 剪切光标之前的内容: ctrl + y -- 在光标处粘贴上两个命令,粘贴方式和被剪切方式相同: ctrl + c -- 结束正在运行的程序或命令: ctrl + d -- 结束当前命令窗口: ctrl + r -- 输入关键字可弹出曾经用过的指令: ctrl + l -- 清屏:(和clear效果相同) ctrl + a -- 光标切换到行开头: ctrl +

C# 在获得鼠标点击事件时,如何判断Control键,Shift键被按下

在C#的窗体程序中,获得鼠标点击的事件时,想要得知当前是否有Control键,Shift键等是否被按下. 1 private void xxx_MouseClick(object sender, MouseEventArgs e) 2 { 3 if ((Control.ModifierKeys & Keys.Control) == Keys.Control)// CTRL is pressed 4 { 5 6 } 7 8 if ((Control.ModifierKeys & Keys.S

Ctrl、Alt、Shift 键区别

1.Ctrl 是 Control 的缩写,意思是“控制”. Ctrl 键用来执行命令的,大部分的快捷键都与它相关. 2.Alt 是 Alternate 的缩写,是“交替”的意思.(感谢知友 黎明.何理的指正) Alt 键与菜单相关,更进一步说,Alt 键与图形用户界面(GUI)相关,也就是与窗口相关,而菜单只是窗口中的一部分内容,所以有了 Alt Tab 切换窗口,Alt Space 调节窗口大小,Alt F4 关闭窗口这样的快捷键. 3.Shift 的意思是“切换”. 所以Shift 键就是对

在拖放文件的同时检测shift键的状态

老板要给原来文件拖放的功能加个扩展分类,于是想在文件拖放时判断shift键的状态来区分. 一般通过keydown和keyup来判断按下与否,但这都是需要控件事件触发,而在拖放的时候是没法触发key事件的,所以需要通过其他的检测. 百度后,找到了这么一句: 1 if (Control.ModifierKeys == Keys.Shift) //keys Control.ModifierKeys 返回的是当前修改键的状态,ALT,SHIFT,CTRL 2 { 3 shiftDown = true;

页面上有一个div 100*100 颜色为黄色 按键盘上下左右键可以操作div移动 ctrl+键盘上下键可以放大缩小 ctrl+键盘左右键可以随机变颜色

1 <body> 2 <div id="w"> 3 <div class="n">按上键可以向上移动</div> 4 <div class="n">按下键可以向下移动</div> 5 <div class="n">按左键可以向左移动</div> 6 <div class="n">按右键可以向右移动&l

小小Shift键大大功能 盘点Shift键六大技巧 (转)

Shift键是我们再熟悉不过的一个按键了吧,但是如果只是上网冲浪的人可能就对它不熟悉了,因为用习惯鼠标的人是不会碰到它的,不过如果是工作写文档之类的事那么它就非常重要了 Shift键是我们再熟悉不过的一个按键了吧,但是如果只是上网冲浪的人可能就对它不熟悉了,因为用习惯鼠标的人是不会碰到它的,不过如果是工作写文档之类的事那么它就非常重要了,那么它到底有多少功能呢? 今天,笔者就列举几个,供大家一起分享,希望能对大家平时的操作有所帮助! 1. Shift + Delete键 = 剪切 当我们选中简历

教你如何使用ZBrush&#174;中Alt键和Shift键

ZBrush®是一个数字雕刻绘画软件,它以强大的功能和直观的工作流程彻底改变了整个三维雕刻行业.在一个简洁的界面中,ZBrush®为当代数字艺术家提供了世界上最先进的工具.利用快捷键能使操作更快捷高效,本篇教程介绍ZBrush®Alt键和Shift键的使用. 使用雕刻笔进行雕刻时,在顶部工具架上选择Zadd(Z添加)命令,雕刻可以使体积膨胀:选择Zsub(Z凹陷)命令,雕刻可以使体积向下凹陷. 1)Zadd(Z添加):在二维绘图时开启此选项,将产生2.5D的体积凸起,但不能作为三维体积编辑:在三

javascript检测浏览器的缩放状态实现代码 是指浏览器网页内容的百分比缩放(按Ctrl和+号键或者-号键的缩放)

这里所说的缩放不是指浏览器大小的缩放,而是指浏览器网页内容的百分比缩放(按Ctrl和+号键或者-号键的缩放).检测这种缩放有很种方法,QQ空间都通过flash来检测浏览器是否处于缩放.这里提供javascript的方法来检测浏览器的缩放.对于 IE6,就直接无视了,因为 IE6 只能对文本进行缩放.先来说说浏览器提供的标准检测接口,window.devicePixelRatio 是设备上物理像素和设备独立像素的比例,该属性就可以用于检测网页是否被缩放了.在普通的 PC 浏览器上,在默认无缩放的情

[转] linux下shell中使用上下键翻出历史命名时出现^[[A^[[A^[[A^[[B^[[B的问题解决,Linux使用退格键时出现^H解决方法

[From] https://www.zmrbk.com/post-2030.html https://blog.csdn.net/suifengshiyu/article/details/40952771 我的理解是,如果出现如题所描述的问题,这是因为使用了不同的shell程序和对应的stty设置对应关系所综合作用的结果. 这是/bin/sh里面stty -a命令输出的信息: $ stty -a speed 38400 baud; rows 43; columns 209; line = 0;