procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then //回車後跳到下一格 begin with TDBGrid(ActiveControl) do if SelectedIndex < (FieldCount -1) then SelectedIndex := SelectedIndex + 1 else begin DBGrid1.DataSource.DataSet.Append; SelectedIndex := 0; end; end; end;
示例:
if Key = 13 then //回車後跳到下一格 with TDbgrideh(ActiveControl) do begin if Selectedindex < (FieldCount - 1) then Selectedindex := Selectedindex + 1 else begin dbgrideh.DataSource.DataSet.Next; Selectedindex := 0; end end;