判断集合从属关系的练习: 是否同时按下了 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;


分享给朋友:
您可能感兴趣的文章:
随机阅读: