حرکت در فیلدهای dbgrid با کلیدenter

[beny]

با سلام

میخوام وقتی تو فیلد دی بی گرید کلیدEnter رو زدم بره به فیلد بعدی مثل کلیدTab.چطور میتونم انجام بدم ؟


ممنون

[admin]

سلام.
اصولا وقتی حرف از حرکت بین کامپوننت ها با فشردن کلیدهای خاص میشه باید سمت Event مربوط به اون یعنی Key Press برید.
کد زیر برای کار شما کاربرد داره

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin

 if Key = #13 then
  begin
  if DBGrid1.SelectedIndex+1 < DBGrid1.Columns.Count then
  begin
    DBGrid1.SelectedField := DBGrid1.DataSource.DataSet.Fields[DBGrid1.SelectedIndex+1];
    Key := #0;
    end;
  end;
end;