cxgrid控件修改记录时AfterScroll事件触发N次的问题

 

上次在优快云发的一个问题(http://topic.youkuaiyun.com/u/20110525/01/75a720c7-6079-469c-bf2e-1b6024bd1171.html)终于自己搞定了，主要还是先清楚的了解事件执行先后顺序，然后在相关的事件里面增加一些判断标志，这里粘出部分代码(使用环境是AdqFont在DataModule里面，调用时先判断下MainFrm窗口是否存在)，希望对遇到该问题的朋友有所帮助：

(注：因为这些标志包含了 在cxgrid的修改 和 其它非绑定数据集的控件里面的修改 两种情况，所以控制代码写的要复杂一些)

var IsFontOpening: Boolean; IsPost_Font: Boolean; EditRecID_Font, EditRecTime_Font: Integer; procedure TDm.AdqFontBeforePost(DataSet: TDataSet); begin if (MainFrm = nil) then Exit; //一般跟cxgrid关联同一个数据集的控件(如TcxDBTextEdit)在修改记录的时候也会触发到这里， //跟dbgrid和dbgrideh的事件顺序一样，这里判断焦点是在其它地方(非cxGrid)才打开开关。 if not MainFrm.ActiveControl.ClassNameIs('TcxGridSite') then IsFontOpening := True; //标志打开，可以跳过中间N个Scroll，再说明下一般数据集控件在修改记录时触发事件的顺序是：BeforePost->中间有N条触发Scroll->AfterPost end; procedure TDm.AdqFontAfterPost(DataSet: TDataSet); begin //两种情况分别有不同的处理：一种是焦点在cxGrid上面触发的post，一种是在其它数据集控件触发的。 if MainFrm.ActiveControl.ClassNameIs('TcxGridSite') then begin IsPost_Font := true; //post的标志打开 EditRecTime_Font := 0; //先后调用该事件的次数 with DataSet do begin EditRecID_Font := FieldByName('ID').AsInteger; //记录当前正在修改的那条记录ID end; end else IsFontOpening := False; //标志关闭，已经跳过中间N个Scroll，最后一次Scroll调用主要执行代码 end; procedure TDm.AdqFontAfterScroll(DataSet: TDataSet); begin if IsPost_Font then begin // 执行N次Scroll滚动的过程有两次会到刚才修改的那条记录 if DataSet.FieldByName('ID').AsInteger = EditRecID_Font then inc(EditRecTime_Font) else Exit; //第二次又定位到这条记录时，标志关闭，下一次Scroll即可定位到鼠标当前点击的记录 if EditRecTime_Font = 2 then IsPost_Font := False; Exit; end; //IsFontOpening为false证明还在执行N次滚动 if (MainFrm = nil) or (DataSet.RecordCount = 0) or IsFontOpening then Exit; //这下面开始写主要执行的代码，无论是修改cxGrid还是数据集控件、或者是滚动，这里始终只执行一次 ...... end;