Bookmark

[Paulao]

Uso TcxGrid de la dev. En codigo tengo un while y necesito, que quando yo hago clique en mi grid, la quey entra en el while, pero despues necesito que ella volva para la posicion anterior y no para el primer o ultimo registro. Como hago eso?

[[jcarteagaf]]

Ahi te va un ejemplo:

Código Delphi [-]
var
  bmRec: TBookMark;
begin
  with Archivo do
  begin
    DisableControls;
    bmRec := GetBookmark;
    First;
    try
      while not EOF do
      begin
        // hacer algo aqui
        Next;
      end;
    finally
      GotoBookmark(bmRec);
      FreeBookmark(bmRec);
      EnableControls;
    end;
  end;
end;

EnabledControls y DisableControls es para evitar que el usuario note que se esta recorriendo el dataset.

Saludos

[Paulao]

mi precipitei en postar un mensaje. Ya esta listo. Yo estaba usando el evento erado del TcxGrid. Ahora esta ok, hizo asi:
var
bm: Tbookmark;
begin
bm := CDS.GetBookmark;
Mis procedures aqui;
CDS.GotoBookmark(bm);
CDS.FreeBokmark(bm);
....

[[jcarteagaf]]

Que bueno que lo solucionaste. No te olvides del EnableControls y DisableControls, pues si son muchos registros o el proceso es complicado, no se ve muy bien que la pantalla este actualizandose....al menos a mi no me gusta.

Saludos.

[Paulao]

Si, yo havia olvidado del EnableControl pero luego hizo la corecion y esta listo. gracias!!!!

[*Caro*]

Empezado por jcarteagaf

....EnableControls y DisableControls, pues si son muchos registros o el proceso es complicado, no se ve muy bien que la pantalla este actualizandose.....

Hola jcarteagaf y paulao, además de no verse bien, se hace mas lento el programa.

Saluditos