各位大大，在下有禮了 開發環境windows xp delphi7 Sql server 2000，使用delphi的ClientDataSet控件，用cxGrid來顯示數據， 問題：我們在ClientDataSet的AfterScroll中寫了代碼，但在formShow的時候，該代碼就被多次（= 記錄條數 4）調用，用call stack來debug，誰來調用了這段代碼，沒有發現調用者，估計可能是cxDataControl， 各位大大有什麽指教？ 發表人 - double9999 於 2005/02/25 17:32:38

我想cxGrid在逐行繪製內容時, 應該是得動用到AfterScroll的程序吧。

引言: 各位大大，在下有禮了 開發環境windows xp delphi7 Sql server 2000，使用delphi的ClientDataSet控件，用cxGrid來顯示數據， 問題：我們在ClientDataSet的AfterScroll中寫了代碼，但在formShow的時候，該代碼就被多次（= 記錄條數 4）調用，用call stack來debug，誰來調用了這段代碼，沒有發現調用者，估計可能是cxDataControl， 各位大大有什麽指教？ 發表人 - double9999 於 2005/02/25 17:32:38

不知道你onshow時的程式碼有做何種動作 我記憶中, open會觸發一次, .first 也會觸發一次

您好：回答如下 1.如果你有source 請修正下面這段

cxDBData.pas    procedure TcxDBDataController.LoadStorage;
var
  OldBeforeScroll:TDataSetNotifyEvent;/930804
  OldAfterScroll:TDataSetNotifyEvent;//930804 當然你也可以加入其他DataSet不想觸發的事件，但必須避免有其他影響
begin
  //930804
  OldBeforeScroll:=nil;
  OldAfterScroll:=nil;
  if Assigned(DataSet) then
  begin
    OldBeforeScroll:=DataSet.BeforeScroll;
    OldAfterScroll:=DataSet.AfterScroll;
    DataSet.BeforeScroll:=nil;
    DataSet.AfterScroll:=nil;
  end;
  //930804
  SaveKeys;
  try
    inherited LoadStorage;
    Provider.ResetPostLocateFlag;
  finally
    RestoreKeys;
    //930804
    if Assigned(DataSet) then
    begin
      DataSet.BeforeScroll:=OldBeforeScroll;
      DataSet.AfterScroll:=OldAfterScroll;
      OldBeforeScroll:=nil;
      OldAfterScroll:=nil;
    end;
    //930804
  end;
end;

2.沒有source時 請宣告一個LockCount:Integer; 初始值LockCount:=0 在不想觸發事件處加入

procedure TForm1.SQLQuery1AfterScroll(DataSet: TDataSet);
begin
  if LockCount>0 then exit;
end;

在做某事不想觸發該事件

Inc(LockCount);
try
  //do something
finally
  Dec(LockCount);
  //最後如果你想要執行AfterScroll事件，那就
  SQLQuery1AfterScroll(SQLQuery1); 
end;

3.或者也可以這樣寫

var
  OldBeforeScroll:TDataSetNotifyEvent;
  OldAfterScroll:TDataSetNotifyEvent;
begin
  OldBeforeScroll:=SQLQuery1.BeforeScroll;
  OldAfterScroll:=SQLQuery1.AfterScroll;
  SQLQuery1.BeforeScroll:=nil;
  SQLQuery1.AfterScroll:=nil;
try
  //do something
finally
  SQLQuery1.BeforeScroll:=OldBeforeScroll;
  SQLQuery1.AfterScroll:=OldAfterScroll;
  OldBeforeScroll:=nil;
  OldAfterScroll:=nil;
end;

我也遇到相同的問題

DevExpress 客服是這樣回答的：
cxGrid & Dataset AfterScroll problem


[code delphi]
...
procedure TForm1.AfterScroll(DataSet: TDataSet); begin
if not DataSet.ControlsDisabled then
begin
//Your code
...
end;
end;
[/code]