Foros Club Delphi - Primera fila visible de un grid

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Primera fila visible de un grid (https://www.clubdelphi.com/foros/showthread.php?t=15836)

Primera fila visible de un grid

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

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

Cita:

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.

Cita:

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

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.

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 :p pero te recuerdo el hilo problemas la hacer un cast de un TStringGrid(DBGrid).

// Saludos

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.

RonPablo, lamento mi confusión, tienes toda la razón, TopRow viene para un TCustomGrid, no para el Dbgrid.

Puedes usar los comentarios de los consagrados Marcos Zorrilla o Roman para tu propósito.

Como alternativa al DBGrid te puedo comentar el RXdbGrid de la biblioteca RxLib, ese si permite saber en que fila y columna estas situado, y haciendo un pequeño truco, puedes saber que hay en cada celda sin tener que acceder a la BD. Puedes bajarlo de www.clubdelphi.com/users/cadetill si estas interesado.

Saludos

RequestLive no lo encuentro en IBQuery

Hola y primero que todo quiero agradecer a Roman, Lepe y Marcoszorrilla por los posts, han sido muy ilustrantes.

Ahora

Cita:

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

Esta propiedad solo la encuentro en TQuery pero en IBQuery no lo encuentro... y como tal el IBQuery es el que uso en mi aplicación.

Pero me gustaría hacerlo mejor por el lado que apunta roman y no haciendo el cast (el cast me parece una forma muy ingeniosa, pero no quiero dejar posibilidades de error)

Ahora como tal el procedimiento de inserción lo hago en un Query distinto al Query de consulta el cual mira sobre un procedimiento almacenado donde mando 5 parámetros y para actualizar la información lo que hago es poner en false y luego en true la propiedad active…

Con respecto a descargar un componente es otra posibilidad que estoy mirando.

Cita:

Empezado por RONPABLO

(el cast me parece una forma muy ingeniosa, pero no quiero dejar posibilidades de error)

Otra forma de acceder a propiedades protegidas es simplemente derivando una clase de 'palo':

Código Delphi [-]type
  THackGrid = class(TDBGrid);

y hacer el moldeo con ella.

El moldeo así hecho cumple todos los requisitos. Sin embargo siempre tiene uno que tener en consideración el por qué se mantienen protegidas ciertas propiedades. Por ejemplo, en el caso de Row, el problema es que el DBGrid es en realidad una rejilla virtual que solo mantiene las filas que en un momento dado se muestran al usuario (las que caen en el control visual). Conforme nos desplazamos por la rejilla, la componente va pidiendo los datos al dataset que la alimenta. Así, Row sólo será válido para valores entre 0 y 14 (suponiendo que 14 son las filas que simultáneamente caben en la rejilla).

// Saludos

Bueno... que alegria ya me dio :cool: aplique la foma de hacer el cast que me indico Roman aunque no puede asignar la columna asi que busque una forma de hacer esto y pues lo publico a continucacion...
Espero que sea de utilidad para otras personas... Y nuevamente gracias a todos por las respuestas que me dieron

Código:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, DBGrids, DB, IBDatabase, IBCustomDataSet,

  IBTable;

type

  TMiDBGrid = class(TDBGrid)  // Defino la clase que usare

Public

  { Las propiedades que necesito }  property topRow;

  property Row;

end;

type

  TForm1 = class(TForm)

        IBTable1: TIBTable;

        IBDatabase1: TIBDatabase;

        IBTransaction1: TIBTransaction;

        DataSource1: TDataSource;

        DBGrid1: TDBGrid;

        Button1: TButton;

        procedure Button1Click(Sender: TObject);

  private

        { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  MiDBGrid : TMiDBGrid;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i, NumeroFilas, Fila : Integer;

  encontrar : string;

begin

  DBGrid1.DataSource.DataSet.DisableControls;

  NumeroFilas:= TMiDBGrid(DBGrid1).RowCount;   // Aquí realizo el cast para

                                         // encontrar el numero de filas

  Fila:= TMiDBGrid(DBGrid1).Row;   // Aquí realizo el cast

                                         // encontrar la fila actual

  for i:=1 to Fila -1 do

        DBGrid1.DataSource.DataSet.Prior;

  encontrar:= TMiDBGrid(DBGrid1).Fields[0].Text;

  IBTable1.Active:= False;

  IBTable1.Active:= True;

  DBGrid1.DataSource.DataSet.Locate('IDANAMNESIS', encontrar, [loPartialKey]);

  for i:=1 to NumeroFilas -2 do

        DBGrid1.DataSource.DataSet.Next;

  for i:=1 to NumeroFilas - Fila - 1 do

        DBGrid1.DataSource.DataSet.Prior;

  DBGrid1.DataSource.DataSet.EnableControls;

end;

end.