判断是否shift按键

最新推荐文章于 2022-06-08 15:22:16 发布

zz1001

最新推荐文章于 2022-06-08 15:22:16 发布

阅读量770

点赞数

文章标签： integer button forms windows class

本文链接：https://blog.csdn.net/zz1001/article/details/4638163

版权

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if [ssleft,ssctrl,ssalt]=shift then messagebeep(0); end; procedure TForm1.FormMouseMove(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssleft in shift)and(ssctrl in shift) then 左键连着ctrl一起按为真 messagebeep(0); end; end.