Delphi 2009 OnKeyDown 不像 Delphi 2007 那样陷入陷阱
我有这段代码
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
begin
if not (Key in [Ord('0')..Ord('9')]) then
Key := 0;
end;
，它在 Delphi 2007 中运行良好。当我升级到 Delphi 2009 并尝试按任何字母时，它会被接受，并且 Key := 0 不会捕获输入？
有人遇到过同样的行为吗？
I have this code
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
begin
if not (Key in [Ord('0')..Ord('9')]) then
Key := 0;
end;
and it worked fine with Delphi 2007. When I upgraded to Delphi 2009 and I try to press any letter it is accepted and the Key := 0 does not trap the input?
Anyone encountered the same behavior?
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（3）
您确定这在 Delphi 2007 中有效吗？ 我刚刚尝试了 Delphi 2007 和 2009 中的代码。两者的行为相同（没有击键）如果您只想接受数字，您应该使用 OnKeyPress 事件并将 Key 参数设置为 #0。
Are you sure that this worked in Delphi 2007? I just tried the code in Delphi 2007 and 2009. And both behave the same (No key stroke is eaten) If you want to accept only digits you should use the OnKeyPress event and set the Key parameter to #0.
OnKeyDown 为您提供一个扫描码。 OnKeyPress 为您提供字符。 我记得的 Delphi 的每个版本都是这样。
OnKeyDown gives you a scancode. OnKeyPress gives you the character. Been that way in every version of Delphi I can remember.
在
KeyDown事件上发送Key:=0;使用：to send
Key:=0;onKeyDownEvent use: