// 回车焦点下移
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;
lazarus:按回车键焦点自动跳至下一个控件
最新推荐文章于 2020-10-22 21:47:51 发布