zoukankan      html  css  js  c++  java
  • 判断集合从属关系的练习: 是否同时按下了 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;
    

  • 相关阅读:
    【leetcode】Linked List Cycle
    wordnet的一些入门性介绍
    Wordnet的一些简单使用
    第九章:图论和网络爬虫
    自动文档摘要技术简介
    20169202 2016-2017-2《TCP/IP协议攻击》实验总结--十一周
    20169202 2016-2017-2《移动平台》第十一周学习总结
    20169202 2016-2017-2《网络攻防》第十一周学习总结
    20169202 2016-2017-2《移动平台》第十周实验总结
    20169202 2016-2017-2《网络攻防》第十周云班课实验总结
  • 原文地址:https://www.cnblogs.com/del/p/2084156.html
Copyright © 2011-2022 走看看