搜索不到只好提问：KeyPress的问题

Question

我想：procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begincase Key  of
65:...
很多end;
end;end.
怎么弄？

Answer 1

就是判断是否按下a，或者其余什么键，在VB里我很轻松，在delphi就费劲了

Answer 2

case Key  of
#65:
#13
.
.
.end;
end;end.

Answer 3

if key=#65 then ...;
if key=#13 then ...;
...

Answer 4

case Key  of
#65:begin
  end;
#13:begin
  end;
.
.
.end;

Answer 5

多谢hammer_shi(@农业专家@(*暂时是菜鸟*))  马上结贴
在你提示下，我这么 搞的
case UPCASE(KEY)  of
#65 :  showmessage('a');
end;

Answer 6

说实话delphi里面的case真的不好用，只能选择整数！我怀念VB

Answer 7

我也怀念VB啊~还是想delphi吧，要面包啊！