AfterScroll事件不能啟用 ( 积分: 100 )

Q_PC.AfterScroll:=nil; =====這個是停用該事件

Application.CreateForm(TPCQuery_F, PCQuery_F);
PCQuery_F.Datasource1.dataset:=Q_PC;
PCQuery_F.ShowModal;
Q_PCAfterScroll(Q_PC);
Q_PC.AfterScroll:=Q_PCAfterScroll; 到這里想啟用起該事件.但啟用不起來因為使用Prior、Next都不執行

但我測試以下代碼也行.
procedure TPC_F.Button5Click(Sender: TObject);
Begin
Q_PC.AfterScroll:=nil;
Q_PC.AfterScroll:=Q_PCAfterScroll; 它也能啟動得了.
Q_PC.Next;
End;