关于李维的第二章

Question

procedure TDataModule2.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
FORM1.notifyscroll;
end;那里的notifyscroll 是什么意思？
我调用的时候显示 没定义notifyscroll

Answer 1

自定义的函数吧，在FORM1单元上搜索notifyscroll,看看他长什么样子

Answer 2

是自己写的函数，找找Form1里面有没有这个函数的定义。

Answer 3

procedure tform.notifyscroll;
 var
   aus:tupdatestatus;
    begin
     aus:=datamodule2.ADODataSet1.UpdateStatus;
      if (aus=usunmodified) then
       setupdatestatusinfo(true,false,false,false)
       else
        if (aus=usmodified) then
         setupdatestatusinfo(false,true,false,false)
         else
          if(aus=usinserted) then
           setupdatestatusinfo(false,false,true,false)
           else
           setupdatestatusinfo(false,false,false,true);
           end;
           procedure tform.setupdatestatusinfo(ck1,ck2,ck3,ck4 :boolean);
           begin
           ckusunmodified.checked:=ck1;
           ckusmodified.checked:=ck2;
           ckusinserted.checked:=ck3;
           ckusdeleted.checked:=ck4;
           end;让我自己在主窗体内加入如下代码~~~ 关键是 主窗体FOMR1 加在哪里…… 我觉得我还是得回去看教程在研究一下呀

Answer 4

把procedure notifyscroll;加在public下！