我有这个代码
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 不会捕获输入?
有人遇到过同样的行为吗?