[ecfisa]

Hola rgstuamigo.

Cuando quise cambiar el resultado de la función a TField para que me devuelva el campo no lo realiza. Es decir devuelve el valor del campo correctamente como string, pero no el campo en sí:

Código Delphi [-]
function TForm1.DBgridColFil(ACol, AFil: integer; Rejilla: TDBGrid): TField;
begin
  Result:= nil;
  if (ACol < 1)or(ACol > TStringGrid(Rejilla).ColCount)or(AFil<1)or(AFil > TStringGrid(Rejilla).RowCount) then
    raise Exception.Create('Selección fuera de rango');
  TStringGrid(Rejilla).Row:=AFil;
  TStringGrid(Rejilla).Col:=ACol;
  Rejilla.SetFocus;
  Result:= Rejilla.SelectedField;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= DBGridColFil(SpinEdit1.Value,SpinEdit2.Value, DBGrid1).AsString;
end;

Me toma los cambios de columna pero no el de las filas, probalo a ver si estoy haciendo algo equivocado...

Un saludo.