Un DBGrid díscolo

[gorsan]

He descubierto que el dataset no añade registro nuevo porque permanece en dsBrowse

Código Delphi [-]
procedure TWCpu.TBAddClick(Sender: TObject);
begin
   TBAdd.Enabled:=False;
   TBEditar.Enabled:=False;
   TBBorrar.Enabled:=False;
   TBGrabar.Enabled:=True;
   TBCancelar.Enabled:=True;
   EBuscar.SetFocus;
   with DMCpu.IBCpu do
    try
       DisableControls;
       Close;
       Open;
       Append;
    finally
       EnableControls;
       if DMCpu.IBCpu.State in [dsBrowse] then ShowMessage('No has añadido un nuevo registro');
    end;
   DBId_inv_cpu.SetFocus;
end;

No entiendo nada

[[Ivanzinho]]

No estoy muy puesto en esto, seguro que cualquiera te puede dar una mejor solución, pero te comento los siguiente por si te puede valer.

Si en el evento AfterInsert le das algún valor a un campo del dataSet éste se pone en estado dsInsert.

Para insertar en el dbgrid, una vez hecho lo anterior, puedes hacerlo con la tecla Ins.

Un saúdo.

[gorsan]

Gracias a Ivanzinho he resuelto el problema. El tema estaba en que en el evento afterinsert tenia el siguiente codigo:

Código Delphi [-]
procedure TDMCpu.IBCpuAfterInsert(DataSet: TDataSet);
begin
   IBCpu.Transaction.CommitRetaining;
   IBCpu.Refresh;
end;

con lo que la insercion de un registro en blanco quedaba anulada con un CommitRetaining y luego ademas se refrescaba la tabla. Quitando esas dos lineas de codigo problema solucionado.
Muchas gracias a Ivanzinho por la pista.