procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean); var i : Integer; begin if Msg.CharCode = VK_RETURN then begin i := ActiveControl.ComponentIndex + 1; if (i = ComponentCount) then i := 0; TWinControl(Controls[i]).SetFocus; end; Handled := True; end; 代碼沒有考慮含有Parent的情況，根據自己需要改吧
