键盘移动.txt

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

1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)到该文件夹
4.添加一个几何(Shape)控件
5.在左边的"对象观察器"(Object Inspector)工具栏翻到"事件"(Event)
添加"键盘事件"(OnKeyDown)，并添加代码
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=37 then Shape1.Left:=Shape1.Left-5;  //向左移动
  if Key=38 then Shape1.Top:=Shape1.Top-5;  //向上移动
  if Key=39 then Shape1.Left:=Shape1.Left+5;  //向右移动
  if Key=40 then Shape1.Top:=Shape1.Top+5;  //向下移动
end;