有关delphi 窗体 foucs 设置的问题，高手来帮帮~~！

Question

如果只用回车键，来控制焦点在窗体中的文本框按tab的顺序来切换
要怎么样做到
高手来
解决立刻给分

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;