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;
    

  • 相关阅读:
    git命令
    深度剖析Apache Dubbo核心技术内幕学习笔记
    MyBatis-Plus简介
    Mysql主从复制原理
    springboot启动原理
    布隆过滤器
    java poi生成的excel发送邮件后无法预览
    Git使用教程:最详细、最傻瓜、最浅显、真正手把手教!
    javacv FFmpeg 视频压缩
    .NetCore之接口缓存
  • 原文地址:https://www.cnblogs.com/del/p/2084156.html
Copyright © 2011-2022 走看看