• delphi中的key值


    近日在写程序时,发现对key的值含义又生疏了很多,列举出来以加深记忆:

    在onKenDown里边

    key= 13    //   回车键;
    key= 9    // Tab

    如果在OnKenPress中,应该
    Key = #13
    Key = #9;  

    vk_LButton = $01;

    vk_RButton = $02;

    vk_Cancel = $03;

    vk_MButton = $04; { NOT contiguous with L & RBUTTON }

    vk_Back = $08;   //退br>
    vk_Tab = $09;

    vk_Clear = $0C;

    vk_Return = $0D;

    vk_Shift = $10;

    vk_Control = $11;

    vk_Menu = $12;

    vk_Pause = $13;

    vk_Capital = $14;

    vk_Escape = $1B;

    vk_Space = $20;

    vk_Prior = $21;

    vk_Next = $22;

    vk_End = $23;

    vk_Home = $24;

    vk_Left = $25;

    vk_Up = $26;

    vk_Right = $27;

    vk_Down = $28;

    vk_Select = $29;

    vk_Print = $2A;

    vk_Execute = $2B;

    vk_SnapShot = $2C;

    vk_Copy = $2C not used by keyboards }

    vk_Insert = $2D;

    vk_Delete = $2E;

    vk_Help = $2F;

    vk_A thru vk_Z are the same as their ASCII equivalents: 'A' thru 'Z' }

    vk_0 thru vk_9 are the same as their ASCII equivalents: '0' thru '9' }

    vk_NumPad0 = $60;

    vk_NumPad1 = $61;

    vk_NumPad2 = $62;

    vk_NumPad3 = $63;

    vk_NumPad4 = $64;

    vk_NumPad5 = $65;

    vk_NumPad6 = $66;

    vk_NumPad7 = $67;

    vk_NumPad8 = $68;

    vk_NumPad9 = $69;

    vk_Multiply = $6A;

    vk_Add = $6B;

    vk_Separator = $6C;

    vk_Subtract = $6D;

    vk_Decimal = $6E;

    vk_Divide = $6F;

    vk_F1 = $70;

    vk_F2 = $71;

    vk_F3 = $72;

    vk_F4 = $73;

    vk_F5 = $74;

    vk_F6 = $75;

    vk_F7 = $76;

    vk_F8 = $77;

    vk_F9 = $78;

    vk_F10 = $79;

    vk_F11 = $7A;

    vk_F12 = $7B;

    vk_F13 = $7C;

    vk_F14 = $7D;

    vk_F15 = $7E;

    vk_F16 = $7F;

    vk_F17 = $80;

    vk_F18 = $81;

    vk_F19 = $82;

    vk_F20 = $83;

    vk_F21 = $84;

    vk_F22 = $85;

    vk_F23 = $86;

    vk_F24 = $87;

    vk_NumLock = $90;

    vk_Scroll = $91;  

    if not(Key in['0'..'9',#8]) then
    begin
        key:= #0; //空    MessageDlg('請輸入數,mtError,mbOKCancel,0);
        //MessageBeep(-1);
    end;

    每天早上敲醒自己的不是闹钟,是夢想!
  • 相关阅读:
    c# 虚拟路径转换为绝对路径
    Java基础——封装
    作为测试人,如何优雅的查看Log日志?
    学习整理
    记一次DataNode慢启动问题
    记一次DataNode慢启动问题
    记一次DataNode慢启动问题
    DataNode迁移方案
    C++学习笔记-模板
    C Primer Plus之指针
  • 原文地址:https://www.cnblogs.com/yplong/p/2353629.html
Copyright © 2020-2023  润新知