[genyus00]

Buenas, en principio buscaba como Insertar un Botón en una celda de una StringGrid,
y en un hilo de aca lo encontre, pero esa solución presenta un problema si por ejemplo
uso un filtro y de acuerdo al filtro muestro datos en la stringgrid. Digamos que cada
fila de la stringgrid tiene una celda con un el botón insertado el cual va a cumplir la función
de edición de los datos de la fila seleccionada



y que al darle clic despliegue una ficha con la información completa de la fila editada,



al cerrar el formulario (ficha) y retornar a la stringgrid,



digamos que decido filtrar los datos y visualizarlos. Lo cual me obliga a limpiar la stringgrid
los que se traduce en eliminar todas las filas y pintarlas de nuevo surge el error porque para
la demo que encontre aca intenta hacer un posicionar en la ultima fila seleccionada,



Si selecciono la primera fila y vuelvo y filtro no se presenta el error..






Entonces como puedo hacer para que al salir de mi ventana (ficha) se posicione automáticamente
a la fila = 1.

Nota: utilizar : Grilla.row := 1; no funciona.

Este es el codigo del boton editar..

Código Delphi [-]
procedure TFrmPrincipal.GDREditColBtnClick(Sender: TGRDControl;
  AGrid: TGRDGrid; ACol, ARow: Integer);
var
  Usuario: TUsuario;
  canselect :  boolean;
//  ExtError: string;
begin
 Usuario := gloLisUsuario.BuscaPorCodigo(AGrid.Cells[2,ARow]);
 if FrmFicha = nil then
    FrmFicha := TFrmFicha.Create(Application);

 try
    DM.ReloadcombosCombos('FrmFicha');
    FrmFicha.ResetEdit(Usuario);
    FrmFicha.ShowModal;
    GrdUsuarios.Row := 1;//no me posiciona en la Fila 1, se queda en la ultima seleccionada
    finally
          FreeAndNil(FrmFicha);
    end;
 end;

Gracias por cualquier orientación.