本文整理自网络,侵删。
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin ShowMessage(IntToStr(Key));end;
相关阅读 >>
winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母
Delphi生成的webservice appdebug的程序,编译时出错
更多相关阅读请进入《Delphi》频道 >>