Posicionar en la primer fila de una stringgrid

[genyus00]

Hola, si coloco el rowcount al numero total de registros que me devuelve la consulta, pasa lo mismo,
dado que si en la consulta anterior por decir algo: tenia visualizadas 20 filas y la ultima seleccionada
fuera la 15 y filtro de nuevo por algún criterio que me regrese por decir 10 filas, al no poder posicionar
a la fila 1, el mismo código implementado intenta hacer un posicionar a la ultima fila seleccionada, osea
la numero 15, la cual ya no existe.

el rowcount lo puedes ver en la función "PresentaUsuarios" despues del llamado a la funcion addusuario().
La inicio en 2, dado que la primer fila son los títulos y la segunda es donde muestro los datos del primer
adicionado, luego se incrementa el rowcount por si hay otro que mostrar. Gracias

[[AgustinOrtu]]

No logro reproducirlo. Podrías crear un pequeño programa que reproduzca el problema y subir el código?

[[AgustinOrtu]]

Evalua la propiedad RowCount antes de intentar moverte a la primera (imprimela en pantalla)

Yo uso este codigo y si puedo moverme a la primer fila:

Código Delphi [-]
  TForm4 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1: TPanel;
    btnCargarGrid: TButton;
    btnFiltrarGrid: TButton;
    procedure btnCargarGridClick(Sender: TObject);
    procedure btnFiltrarGridClick(Sender: TObject);
  private
    procedure CargarGrid(Items: TStrings);
    procedure LimpiarGrid;
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.btnCargarGridClick(Sender: TObject);
var
  Items: TStrings;
begin
  LimpiarGrid;
  Items := TStringList.Create;
  try
    Items.CommaText := 'Juan, Pedro, Marcos, Agustin, Daniel, German, Federico';
    CargarGrid(Items);
  finally
    Items.Free;
  end;
end;

procedure TForm4.btnFiltrarGridClick(Sender: TObject);
var
  Items: TStrings;
begin
  LimpiarGrid;
  Items := TStringList.Create;
  try
    // supongamos que se aplica la funcion "X" y devuelve estos nombres
    Items.CommaText := 'Juan, Pedro, Federico';
    CargarGrid(Items);

    // me paro en la primer fila, sin ningun problema
    StringGrid1.Row := 1;
  finally
    Items.Free;
  end;
end;

procedure TForm4.CargarGrid(Items: TStrings);
var
  I: Integer;
begin
  StringGrid1.RowCount := Items.Count + 1;
  for I := 0 to Items.Count - 1 do
  begin
    StringGrid1.Cells[0, I+1] := Items[i];
    StringGrid1.Cells[1, I+1] := Items[i];
    StringGrid1.Cells[2, I+1] := Items[i];
    StringGrid1.Cells[3, I+1] := Items[i];
  end;
end;

procedure TForm4.LimpiarGrid;
var
  I, J: Integer;
begin
  for I := 0 to StringGrid1.RowCount - 1 do
    for J := 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[I, J] := EmptyStr;
end;

[genyus00]

Hola gracias por tu tiempo y ayuda en este tema. he probado el código y si que funciona, pero para
una stringgrid normal, la cuestion es con una en la que las celdas de una de sus columnas tenga
insertado un botón editar, como la del ejemplo del .zip. y como la que describo en el problema.
Gracias.