calculo de campos presionando la flecha abajo
 

Saludos.

Tengo un problema que consiste en que deseo recalcular el contenido de dos campos mostrados a travez de un tdbgrid presionando la flecha abajo del teclado.

Cuando utilizo el evento onkeypress del tdbgrid y coloco if key=#13 then calcula; Funciona muy bien, pero no se como hacerlo presionando la flecha hacia abajo del teclado.

Se que para algunos es muy facil pero personalmento no se. Por favor si alguien puede colaborarme le estaria muy agradecido.

Gracias de antemano

Supongo que puedes usar el evento OnKeyDown o bien OnKeyUp del DBGrid y comparar el parámetro Key contra la constante VK_DOWN.

// Saludos

Pasa que cuando utilizo esos eventos, no me guarda o se pierde la cantidad que estoy colocando por ejm.

cant precio valor
5 20 100 cuando presiono enter en el evento onkeypress
5 0 0 cuando utilizo en onkeydown o onkeyup se me pierde lo digitado

Pon el código fuente, no podemos adivinar ;)

Hola luchifer.

Lo que te sugiere roman tiene el mismo efecto que la evaluación que realizas en OnKeyPress. Habría que ver como está tu código en el evento OnKeyDown como te indica Casimiro.

Pero me pregunto...¿ Y no te serviría usar el evento AfterScroll del TDataSet ?, algo parecido a:

Código Delphi [-]
procedure TuForm.FormCreate(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.AfterScroll := DataSetAfterScroll;
end;

procedure TuForm.DataSetAfterScroll(DataSet: TDataSet);
begin
  with DBGrid1.DataSource.DataSet do
  begin
    Edit;
    FieldByName('CAMPO3').Value:= FieldByName('CAMPO1').Value *
      FieldByName('CAMPO2').Value;
  end;
end;

procedure TuForm.FormDestroy(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.AfterScroll := nil;
end;

Saludos.