如何实现按回车后如同按tab键效果，

Question

begin
   if key=chr(13) then
     ttysl.SetFocus;
代码如上，可以实现，但总发出警告的声音，有什么其他的好办法吗？

Answer 1

procedure TForm1.Form1Down(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
  if not(activecontrol is tdbgrid) then
  begin
    key:=0;
    perform(WM_NEXTDLGCTL,0,0);
  end else
  if (ActiveControl is tdbgrid) then
  begin
  with tdbgrid(activecontrol) do
  if Selectedindex<(fieldcount-1) then
  selectedindex:=selectedindex+1
  else selectedindex:=0;
  end;
end;

Answer 2

不用吗？
试一下这处
if key=#13 then
  begin  
    rufer.SetFocus；
    key=#0;
  end;