键盘事件.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 17 行

1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)到该文件夹
4.添加一个几何(Shape)控件
5.在左边的"对象观察器"(Object Inspector)工具栏翻到"事件"(Event)
添加"键盘事件"(OnKeyDown)，并添加代码
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Form1.Caption:=IntToStr(Key);
end;
改为：Form1.Caption:='你按键的值为：'+IntToStr(Key);
改为：
  if Key=32 then Form1.Caption:='你按了空格键';
  if Key=37 then Form1.Caption:='你按了左方向键';
  if Key=65 then Form1.Caption:='你按了A键';