幫我看看!這是一個回車代替TAB鍵

Question

以下是回車代替TAB鍵但是我卻不會代替,請幫我看一下.(我在D6運行):
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
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 1

if Key = #13 then
begin
  selectNext(activeControl,true,true);
Key := #0;
end;

Answer 2

formshow中加入form1.keypreview:=true;

Answer 3

或者你可以把FORM的KeyPress设为True

Answer 4

但是在dbgrid中不能跳到下一行.