Introduction - If you have any usage issues, please Google them yourself
procedure TTelaPGTipoConta.FormKeyPress(Sender: TObject var Key: Char)
begin
if (Key = #13) then // Se a tecla for <enter>
begin
if (ActiveControl is TwwDBGrid) then { if it is a TDBGrid }
with TwwDBGrid(ActiveControl) do
begin
if (selectedindex < (fieldCount - 1)) then { increment the field }
Begin
selectedindex := selectedindex + 1 // Sempre incrementa, menos no Abort
Key := #0
end
else
begin
DataSource.Dataset.append // Cria novo registro no DB do Grid
selectedindex := 0 // Foco no 1o. registro do grid
Key := #0
end
end
end
end