Delphi下的DBGrid鼠标滚动

Question

我有一个dbgrid，在它的数据源onchange事件上，有一些代码可以做一些工作，这需要2-3秒的时间。当我在dbgrid上滚动鼠标时，数据源上的代码对我所滚动的所有行都有效，但我想让它对最后一行起作用，我该怎么做呢？query有一个afterscroll事件，但它也做同样的事情

谢谢

Answer 1

如果我没理解错的话。

您需要做的不是执行Datasource事件中的"OnChange“代码，而是在那里启动一个计时器(参见TTimer)，并执行OnTimer事件中的"OnChange”代码。

在OnChange中，您应该只启动/重置计时器。

这样，如果用户滚动了许多记录，那么只有当用户在任何记录上保持空闲太久时，它才会执行您的OnChange，很可能只在他滚动到的最后一条记录上执行一次。

计时器应该持续多长时间取决于您自己的特定需求。

如果用户用键盘上的箭头滚动，这也会起作用。