procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then ... end;
key=#13 或者 key=vk_return dosomething()
可以啦,不过还想问一下!其它键的标志是什么呢????enter 为 #13,其他呢???
打断点跟踪一下,或用showmessage显示一下。 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin showmessage(string(key)); end;
一般判断回车最好用Onkeydown事件,而可打印字符用OnKeypress事件. 1. Onkeydown if Key=VK_RETURN then 2. OnKeyPress if Key=#13 then------------------------------------------------------- OnKeyPress在按下了单字符时发生, 在ASCII中没有相应字符的键按下后不会产生OnKeyPress事件,譬如F1
begin
if Key=#13 then ...
end;
或者 key=vk_return
dosomething()
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
showmessage(string(key));
end;
1. Onkeydown
if Key=VK_RETURN then
2. OnKeyPress
if Key=#13 then-------------------------------------------------------
OnKeyPress在按下了单字符时发生,
在ASCII中没有相应字符的键按下后不会产生OnKeyPress事件,譬如F1
enter:#13
a:65,b:66,c:67......
F1:VK_F1
tab:vk_tab
up:vk_up.......