请问如何在程序中得到按键的键值?

Question

如上

Answer 1

procedure Tfrm_cgdd.dbe_ddlyKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    postmessage(self.handle, wm_keydown, vk_tab, 0);
  end;
end;

Answer 2

不用那么复杂procedure Tfrm_cgdd.dbe_ddlyKeyPress(Sender: TObject; var Key: Char);begin
showmessage(inttostr(ord(key)));
 
end;

Answer 3

ord(Key) can't get the value of some keys,such as "Delete" or "F1" and so on.
onKeyPress()
begin
  Ord(Key)
end;onKeyDown
begin
  if Key = vk_Delete then
    ......
end;