看看代码，问题在哪里？？

Question

有一个例子，不过是STRINGGRID的。The following code displays the number of rows a row was moved in a label.procedure TForm1.StringGrid1RowMoved(Sender: TObject; FromIndex, ToIndex: Longint);begin
  Label1 := IntToStr(Abs(FromIndex-ToIndex));end;

Answer 1

我找到了，不过以上的事件是有什么用处？要是有中文的HELP，DELPHI也就有天地了procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
   edit1.text:=ADOTable1.Fieldbyname('dm').asstring;
   edit2.text:=ADOTable1.fieldbyname('mc').asstring;
end;

Answer 2

AfterScroll Event 在数据集发生滚动时执行，例如从一条记录移动到另一条记录时，这个事件会自动执行。
   你的这段代码 就是用来记录发生变化时，用edit1,edit2显示记录的代码和名称。(如果你用的是TDBedit,数据集滚动时会自动显示，这个事件就用不着了)

Answer 3

当然你可以在dbgrid的单击事件中写啊
edit1.text:=ADOTable1.Fieldbyname('dm').asstring;
edit2.text:=ADOTable1.fieldbyname('mc').asstring;