procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
end;
delphi 按回车选中下一个控件
最新推荐文章于 2019-11-24 17:29:23 发布
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
end;