Ver Mensaje Individual
  #7  
Antiguo 15-09-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Efren2006.
Cita:
Empezado por Efren2006 Ver Mensaje
...
Solo me pasa cuando trato de INCLUIR un registro y si el usuario cancela ejecuto el evento
Código Delphi [-]
CANCEL
.. se mueve
...
Es un comportamiento del TIBDataSet...

Una solución para tu caso es:
Código Delphi [-]
...
type
  TForm = class(TForm)
    IBDataSet1: TIBDataSet;
    ...
    procedure IBDataSet1AfterCancel(DataSet: TDataSet);
    procedure IBDataSet1BeforeInsert(DataSet: TDataSet);
    ...
   private
     FBookMark: Pointer; 
   ...

implementation

...
// TIBDataSet - BeforeInsert
procedure TForm.IBDataSet1BeforeInsert(DataSet: TDataSet);
begin
  FBookMark := DataSet.GetBookmark;
end;

// TIBDataSet - AfterCancel
procedure TForm.IBDataSet1AfterCancel(DataSet: TDataSet);
begin
  DataSet.GotoBookmark(FBookMark);
  DataSet.FreeBookmark(FBookMark)
end;
...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita