有关回车键的一个问题.

Question

FORM1上放了10个EDIT框,用TAB键可以由上一个EDIT框转到下一个,如果我想用
回车键来代替TAB键实现这个功能,点做?

Answer 1

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;

Answer 2

把所有的Edit的OnKeyPress指到这个就可以......

Answer 3

这样就行了：
在form的keypress事件里写入：
begin
if Key = #13 then
    begin
      Key := #0;
      KeyBd_Event(VK_TAB, MapvirtualKey(VK_TAB, 0), 0, 0);
    end;
end;

Answer 4

在窗体事件中OnKeyPress 发送消息!同时设置属性keypreview  为真.记得给分.

Answer 5

这种解决办法是比较好的。但实际上CSDN2002年的程序员光盘上就有这个函数，把它放在主窗体上作为公共函数，在一开始进行调用，就不必要在每个窗体上都要写楼上所示代码了。