[ecfisa]

Empezado por luchifer

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

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.