是否同时按下了 Ctrl 和 Shift 键

标签：style   color   for   strong   sp   c   on   r   ef   

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

是否同时按下了 Ctrl 和 Shift 键

标签：style   color   for   strong   sp   c   on   r   ef   

原文地址：http://www.cnblogs.com/textword/p/4010930.html