一个关于输入焦点的问题

Question

在一个窗体的几个文本框中输入数据时,默认用TAB健来改变输入焦点,若现在想用ENTER回车键来改变输入焦点该怎么办呢？

Answer 1

在onkeypress事件中写代码就可以了。

Answer 2

onkeypress
if key=#13 then

Answer 3

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

Answer 4

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If key = #13  then
    begin
      keybd_event(VK_TAB,0,0,0);
      keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
      Key:=#0; //加这行可去悼“当”声音
    end
end;
这种解决办法是比较好的。但实际上CSDN2002年的程序员光盘上就有这个函数，把它放在主窗体上作为公共函数，在一开始进行调用，就不必要在每个窗体上都要写楼上所示代码了。

Answer 5

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
SelectNext(Sender as TWinControl,True,True);
end;