delphi key 各键值对应的编码

procedure TFrmMain.edtKeyPressInPut(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0'..'9', '.', #08]) then
  begin
    Key := #0;
  end;
end;

 

主要是['''''''']里面的表达，两者之间用‘,’号隔开，相关的键盘代码是：

vk_LButton       =   $01;
vk_RButton       =   $02;
vk_Cancel         =   $03;
vk_MButton       =   $04;       {   NOT   contiguous   with   L   &   RBUTTON   }
vk_Back             =   $08;
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           &