lazarus:按回车键焦点自动跳至下一个控件

// 回车焦点下移
procedure TForm_luru.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) or (Key = VK_Down) then
    begin
      SelectNext(ActiveControl, true, true);
    end
  else if (Key = VK_Up) then
    begin
      SelectNext(ActiveControl, false, true);
    end;
end;