Resposta

23/05/2003

1

Olha vc pode colocar assim

if key=VK_Return then // se enter foi teclado
begin
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1; avança +1 coluna
end;

if DBGrid1.SelectedIndex = 2 then {quantidade de campos}
begin
DBGrid1.SelectedIndex := 1;
Tabela.Next; {ou insert}
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira