引言: 請教各位先進： 在 dbgrid中當使用者在第N個欄位輸入資料按下Enter鍵後 如何控制游標向左移到第N 1個欄位中.. 謝謝... Owen Yang 03/26/2002

procedure TFormInpOrder.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if not DBGrid2.Focused then
      with DBGrid2 do
      begin
        if (SelectedIndex < (FieldCount -1)) then
          SelectedIndex := SelectedIndex   1
        else
        begin
          dbgrid2.DataSource.DataSet.Next;
          if dbgrid2.DataSource.DataSet.Eof then
             dbgrid2.DataSource.DataSet.Append;
          SelectedIndex := 0;
        end;
      end;
end;

 
  procedure TCustomDBGrid.KeyPress(var Key: Char);
  begin
    FIsESCKey := False;
    if not (dgAlwaysShowEditor in Options) and (Key = #13) then
      FDatalink.UpdateData;
    inherited KeyPress(Key);
  end;
  改成
  procedure TCustomDBGrid.KeyPress(var Key: Char);
  begin
    FIsESCKey := False;
    if not (dgAlwaysShowEditor in Options) and (Key = #13) then
      FDatalink.UpdateData;
    if key=#13 then key:=char(VK_TAB);
    //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    // 加入這一行將Enter鍵換成TAB鍵 
    inherited KeyPress(Key);
  end;   

procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      if DBGrid1.SelectedIndex < (DBGrid1.FieldCount - 1) then
        begin
          DBGrid1.SelectedIndex := DBGrid1.SelectedIndex   1;
        end
      else
        begin
          DBGrid1.DataSource.DataSet.Post;
          DBGrid1.DataSource.DataSet.Next;
          DBGrid1.SelectedIndex := 0;
        end;
    end;
end;

引言: owenyang 您好﹗ 這篇文章類型應屬于問題﹐請您修改一下文章類型﹗