Ver Mensaje Individual
  #2  
Antiguo 28-02-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
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 shoulder.

Si no te entiendo mal, creo que tu problema se soluciona con una variable privada de tipo TBookmarkStr.

Código Delphi [-]
...
  private
     FBM:= TBookMarkStr;
  public
  end;
...
implementation
...
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  FBM:= DataSet.Bookmark; // Posición del DataSet cuando hace doble click
  Edit1.Text:= DataSet.FieldByName('CAMPO1').AsString;
  Edit2.Text:= DataSet.FieldByName('CAMPO2').AsString;
  ...
end;

procedure TForm1.ModificarClick(Sender: TObject);
var
  LBM: TBookmarkStr;
begin  
  LBM:= DataSet.Bookmark; // Guardar posición actual del DataSet
  DataSet.Bookmark:= FBM; // Posición que tenía el DataSet en OnDblClick
  DataSet.Edit;
  DataSet.FieldByName('CAMPO1').AsString:= Edit1.Text;
  DataSet.FieldByName('CAMPO2').AsString:= Edit2.Text;  
  ...
  DataSet.Post;
  DataSet.Bookmark:= LBM; // restaurar posición actual
end;

Un saludo.
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 28-02-2011 a las 04:56:42.
Responder Con Cita