Delphi按下回车键使各控件依次获得焦点
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);vari : Integer;beginif Msg.CharCode = VK_RETURN thenbegini := ActiveControl.ComponentIndex + 1;if (i = ComponentCount) theni := 0;TWinControl(Controls[i]).SetFocus;end;Handled := True;end;代码没有考虑含有Parent的情况,根据自己需要改吧
补充:软件开发 , Delphi ,