//不少鼠标与键盘事件用到了集合参数: 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;
转载于:https://www.cnblogs.com/textword/p/4010930.html