怎样在dbgrid获取当前取得焦点行数号码？

Question

怎样在dbgrid获取当前取得焦点行数号码？请高手指点啊

Answer 1

可能是我没有表达清楚啊，里面有个字段，我要的是这个字段的当前值因为那个dbgrid1中的黑三角在第一行的时候，我可以滚动鼠标，但是黑三角，还在第一行啊，这样就没有办法取得该值

Answer 2

在ADOTAble 里面的OnAfterScroll获取RecNo

Answer 3

一般都是写在Click里面当前的值可以直接取出来，要是想扑捉鼠标滚动自己手工加代码吧

Answer 4

第一行的时候，我可以滚动鼠标，但是黑三角，还在第一行啊
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
在DBGRID中滚动鼠标并不能移动记录指针
public
　　procedure NewGridWnd(var Message: TMessage);procedure TForm1.FormCreate(Sender: TObject);
begin
  OldGridWnd := DBGrid1.WindowProc;
  DBGrid1.WindowProc := NewGridWnd;
end;procedure TForm1.NewGridWnd(var Message: TMessage);
var
  IsNeg: Boolean;
begin
  if Message.Msg = WM_MOUSEWHEEL then
  begin
    IsNeg := Short(Message.WParamHi) < 0;
    if IsNeg then
      DBGrid1.DataSource.DataSet.MoveBy(1)
    else
      DBGrid1.DataSource.DataSet.MoveBy(-1)
  end
  else
    OldGridWnd(Message);
end;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这样之后，才能用OnAfterScroll获取RecNo