//不少鼠标与键盘事件用到了集合参数: 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;