请问怎么样得到你按下键的ascall码?在线等待!!!!(10分)

  • 主题发起人 jenemery
  • 开始时间
J

jenemery

Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎么样得到你按下键的ascall码?在线等待!!!!是用哪个函数???
 
keydown 事件中的参数Key就是。
 
这样得到的只是那个案件的名称比如:
showmessage(key),当按下K键时,显示的只是你按下的那个键k,不是他的ascall码。
拜托,看清楚了再答!!!
 
我是新手,说错了别怪
ord(key)
不就行了?
 
问题解决。
 
代码:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift=[ssAlt]) then Label1.Caption:='Alt'
else if (Shift=[ssShift]) then Label1.Caption:='Shift'
else if (Shift=[ssCtrl]) then Label1.Caption:='Ctrl'
else Label1.Caption:='';
Label2.Caption:=Chr(Key);
Label3.Caption:=IntToStr(Key);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Label2.Caption:=key;
if key=#13 then Label2.Caption:='Enter';
if key=#27 then Label2.Caption:='ESC';
if key=#20 then Label2.Caption:='Space';
Label3.Caption:=IntToStr(ord(key));
end;
 
顶部