// Bu rutini Formunuzun OnKeyPress eventına ekleyiniz. }
// Form üstünden keypreview=true yapin}
begin
if Key = #13 then { Eğer Enter basılmışsa}
if not (ActiveControl is TDBGrid) then
begin// TDBGrid üzerinde değilse}
Key := #0; { }
Perform(WM_NEXTDLGCTL, 0, 0); { }
end
else
if (ActiveControl is TDBGrid) then// TDBGridd ise}
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then// Alanı bir arttır }
selectedindex := selectedindex +1
else
selectedindex := 0;