Primera fila visible de un grid

[[RONPABLO]]

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



Ahora

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.

[roman]

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

[[RONPABLO]]

Bueno... que alegria ya me dio 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

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.