halizeng: what is your question is untie? maybe this is code that is use for your question. procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then if ActiveControl = DBGrid1 then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then begin selectedindex := selectedindex +1; Key := #0; end else selectedindex :=0; end;
----------------------------------------------
-