急急急,回车事件的问题 ( 积分: 6 )

TFrom中有各种各样的控件,按照次序排列起来,
如Edit1,checkbox等,我按回车健时将光标移至于下一个控件,
如在Edit1处按回车键,光标跳到Edit2处,以此类推,
当光标在最后一个控件处,按回车键则光标又跳止第一个控件处!
请问有什么方法可以实现么?
不要用愚蠢的一个一个的判断!

这个就是Tab键的功能了，
Form.Keypreview设为True;
在Form.OnKeyDown中把回车键转成Tab键就行了
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
Key := 0;
{Keybd_event(9, 0, 0, 0);
Keybd_event(9, 0, KEYEVENTF_KEYUP, 0); }
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;

谢谢你的提示，将Form.Keypreview设为True;
实际上要写一句代码就可以了！
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
SelectNext(ActiveControl, true, true);
end;
将

接受答案了.