在窗口输入控件里输入输入后用ENTER键移动焦点到下一个输入焦点，如何实现？

Question

在窗口输入控件里输入输入后用ENTER键移动焦点到下一个输入焦点，如何实现？

Answer 1

在窗口输入控件里输入数据后用ENTER键移动焦点到下一个输入控件，如何实现？

Answer 2

设置窗体(form)的keypreview值为trueprocedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext(activecontrol,true,true);
end;

Answer 3

haipin(似水柔情) :这个函数好象只对ASCII字符有效，ENTER键好象没有效果，请再指教。
我将(form)的keypreview值为true.

Answer 4

支持 haipin(似水柔情)楼主也可以使用  kb_event函数（呵呵，忘了怎么写了！）

Answer 5

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=vk_return then
        keybd_event(9,0,0,0);
end;

Answer 6

if key = #13 then
    Perform(WM_NEXTDLGCTL, 0, 0);

Answer 7

忘了，应该写在KeyPress事件中

Answer 8

好了，感谢各位，我用了qixin000(小齐) 方法解决了问题，当然也特别感谢haipin(似水柔情)。

Answer 9

lqdmafeng() ：您的方法很不错。

Answer 10

Form.KeyPreview := True;
Form.OnKeyDown ...
if Key = vk_Return then PerForm(WM_NEXTDLGCTL, 0, 0);