• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

判断shift,ctrl,alt键是否按下_Delphi

Delphi 搞代码 3年前 (2018-08-09) 221次浏览 已收录 0个评论

    在组件的OnKeyDown 、 OnKeyUp 、OnMouseDown和OnMouseUp等事件的处理过程中,有一个TShiftState类型的变量Shift ,TShiftState类型定义如下:
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);所以根据Shift的值就可以判断当键盘上的键按下时Shift 、Alt和Ctrl键的状态,或者按下鼠标左键、中键时的状态或者是否双击了按键。当然,如果有OnMouseDown事件发生了,而又不是按下左键和中键,则按下的一定是右键。下面的例程说明了如何检测Shift、Alt和Ctrl 键是否按下。

    通过菜单File | New Application 创建一个新的工程,在窗体中添加一个StatusBar组件,并在状态栏编辑器中为其添加6 个面板。然后为窗体Form1添加OnKeyDown 、OnKeyUp 、OnMouseDown和OnMouseUp等事件的处理过程如下:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Shift>=[ssShift] then // 如果按下了Shift键则在第一个面板上显示Shift
StatusBar1 .Panels[0] .Text:= ‘Shift’;
if Shift>=[ssAlt] then // 如果按下了Alt键则在第二个面板上显示Alt
StatusBar1.Panels[1] .Text:= ‘Alt’;

http://www.gaodaima.com/?p=65731判断shift,ctrl,alt键是否按下_Delphi

if Shift>=[ssCtrl] then // 如果按下了C t r l 键则在第三个面板上显示Ctrl
StatusBar1.Panels[2].Text:= ‘Ctrl’;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin  
// 在Shift、Alt 和Ctrl键弹起时清除状态栏中相应面板上的内容
if not(Shift>=[ssShift]) then
StatusBar1.Panels[0].Text:=’ ‘;
if not(Shift>=[ssAlt]) then
StatusBar1.Panels[1].Text:=’ ‘;
if not(Shift>=[ssCtrl]) then
StatusBar1.Panels[2].Text:=’ ‘;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
if Shift>=[ssLeft] then // 如果按下了左键则在第四个面板上显示left
Statusbar1.Panels[3].Text:= ‘left’;
if Shift>=[ssMiddle] then // 如果按下了中键则在第五个面板上显示Middle
StatusBar1.Panels[4].Text:= ‘Middle’;
if Shift>=[ssDouble] then // 如果是双击则在第六个面板上显示Double
StatusBar1.Panels[5].Text:=’Double’;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
// 在鼠标按键弹起时清除状态栏中相应面板上的内容
if not(Shift>=[ssLeft]) then
StatusBar1.Panels[3].Text:=’ ‘;
if not(Shift>=[ssMiddle]) then
StatusBar1.Panels[4].Text:=’ ‘;
if not(Shift>=[ssDouble]) then
StatusBar1.Panels[5].Text:=’ ‘;
end;
程序运行后,读者可以尝试按下Shift、Alt 和Ctrl键,单击或双击鼠标左键、中键和右键,观察状态栏上各面板的显示。

欢迎大家阅读《判断shift,ctrl,alt键是否按下_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址