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

最新推荐文章于 2018-10-29 00:36:39 发布

老狼8848

最新推荐文章于 2018-10-29 00:36:39 发布

阅读量1.1k

点赞数

分类专栏： Lazarus 文章标签： lazarus 焦点回车

本文链接：https://blog.csdn.net/bq_cui/article/details/46049761

版权

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

// 回车焦点下移
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;