Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); Var Y:Integer; begin y:=TStringGrid(DbGrid1).Row; ShowMessage(IntToStr(y));//quitar esto. TStringGrid(DbGrid1).TopRow:=y; end;
procedure TForm1.Button1Click(Sender: TObject); Var Y:Integer; begin y:=TStringGrid(DbGrid1).Row; ShowMessage(IntToStr(y));//quitar esto. TStringGrid(DbGrid1).TopRow:=y; end;