delphi关于键盘控制的方法

1.如果是keypress的事件：
  (1.)按enter建：if Key=#13 then
                 begin
                    SelectNext(ActiveControl,True,True);
                 end;







2.如果是keydown的事件：

  (1.) 按空白键：if key=vk_space then
                  begin
                  end;


  (2.)按enter建：if key=vk_return then
                  begin
                  end;