حرکت در فیلدهای 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;