Primera fila visible de un grid

[[RONPABLO]]

Un Saludo a todos...

Al ver por medio de un dbgrid un dataset necesito cambiar la informacion de un registro cualquiera, volver a realizar el Query y localizar nuevamente la posicion del registro. todo esto lo hago pero tengo una pequeña molestia y es que el locate funciona desde el primer registro hasta el ultimo y asi al localisar esté queda en la mayoria de las ocaciones en la ultima y en ocaciones en la primer fila visible y yo necesito que esta fila quede justo donde se realizo el click. algo asi como esto

Antes de editar_|Como me esta quedando normalmente_|como quiero que quede
I 6 I__________|____ I 4 I ___________ I 7 I Dato Fin_ | ___ I 6 I
I 7 I Dato Ini___|____ I 5 I ___________ I 8 I ________ | ___ I 7 I Dato Fin
I 8 I__________|____ I 6 I ___________ I 9 I ________ | ___ I 8 I
I 9 I__________|____ I 7 I Dato Fin____ I10I ________ | ___ I 9 I

Cordial Saludo

[[Lepe]]

Ordena la consulta por un campo que NO VA A CAMBIAR, y despues establece TopRow

Read TopRow to determine the index of the first row in the scrollable region that is visible. Set TopRow to scroll the rows in the grid so that the row with index TopRow is the first row after the fixed rows.

[[RONPABLO]]

Empezado por Lepe

Ordena la consulta por un campo que NO VA A CAMBIAR, y despues establece TopRow

Yo tengo delphi 6 y pues no encuentro esta propiedad para un DBGrid, la encuentro en un stringGrid o en un DrawGrid, talvez estoy haciendo algo mal como tal lo que pongo es:

y:= DBGAgenda.TopRow; // DBGAgenda es el nombre delDBGrid que uso

[marcoszorrilla]

No sé si será algo como esto lo que quieres?

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  Var
  Y:Integer;
  begin
  y:=TStringGrid(DbGrid1).Row;
  ShowMessage(IntToStr(y));//quitar esto.
  TStringGrid(DbGrid1).TopRow:=y;
  end;

Un Saludo.

[roman]

Y ¿por qué debes hacer nuevamente la consulta? ¿No sirve poner la propiedad RequestLive del Query en true?

Por cierto Marcos, no quiero ponerme pesado pero te recuerdo el hilo problemas la hacer un cast de un TStringGrid(DBGrid).

// Saludos

[marcoszorrilla]

Román cuando contesté a este hilo, sabía que me ibas a responder de esta manera, y tienes razón.

La respuesta viene enfocada de la siguiente forma, algo sencillo y que funcione y resuelva el problema, teniendo en cuenta que esto sería un resultado final, nadie va a derivar nada más de este código, solamente lo va a mantener quien lo hizo.

Ahora bien, lo que tu apuntas, de acuerdo, es una auténtica aberración moldear un objeto con un molde de otro del cual no desciende.

Conclusión final, si quieres que además de que funcione siga una ortodoxia y no utilizar este "truco sucio", debes de hacer lo que dice Román.

Mi solución aunque funciona, en un examen, tendría un 0.

Un Saludo.