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