procedure TFrom1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if KEY = #13 then
perform(WM_NEXTDLGCTL, 0, 0);
end;
通过回车控制光标向下一控件移动
最新推荐文章于 2023-09-13 16:12:44 发布
procedure TFrom1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if KEY = #13 then
perform(WM_NEXTDLGCTL, 0, 0);
end;