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;
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; finally
FreeAndNil(FrmFicha);
end;
end;
Gracias por cualquier orientación.