K k4-1 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #1 或者怎样将Key转化成Text,不是用IntTOStr;
K k4-1 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #2 或者怎样将Key转化成Text,不是用IntTOStr;
Z zjan521 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #3 var ch : char; begin ch := chr(key);
R raoswing Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #4 对啊,在keydown 事件里写zjan521的代码就行了 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var ch : char; begin ch:=chr(key); showmessage(ch); end;
对啊,在keydown 事件里写zjan521的代码就行了 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var ch : char; begin ch:=chr(key); showmessage(ch); end;
K k4-1 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #6 哈哈......自己也查到这个函数了,. 散分了..谢谢了
K k4-1 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #7 再问一下，为什么Chr()对F1-F9,以及Home之类的怎么没用啊。。
W Wsk16888 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #8 对于F1-F9这些你可以在KEYDOWN事件中进行跟踪,在KEYPRESS事件中跟踪不到的呀
D dreamones Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #9 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage(IntToHex(Key,2)); end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin ShowMessage(IntToHex(Key,2)); end;
Z zjan521 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-20 #10 F1-F9,以及Home 这些东西不是字母.因此只能你自己转换.具体请参见 VK_F1.. 你也可以建立一个包含所有按键/名称的数组.
