datasource1.dataset(100分)

form1中,设计阶段datasource1.dataset=dm.table1 datasource1的onstatechange事件如下：
procedure Tform1.DataSource1StateChange(Sender: TObject);
begin
button1.Enabled :=datasource1.DataSet.State in [dsedit,dsinsert];
dbnavigator1.Enabled :=datasource1.DataSet.state in [dsbrowse];
end;
form2中通过单button1来改变datasource1的DataSet值，事件如下：
procedure Tform2.button1Click(Sender: TObject);
begin
inputdatf.datasource1.DataSet:=dm.Table2 ;
inputdatf.Showmodal;
end;
单击button1后，程序提示好象是说地址访问错误，如果删除DataSource1StateChange事件
则可通过，但我又不想失支DataSource1StateChange事件中的功能？请指点迷津？

试试这样：
procedure Tform1.DataSource1StateChange(Sender: TObject);
begin
button1.Enabled :=datasource1.DataSet.State in [dsedit,dsinsert];
dbnavigator1.Enabled :=datasource1.DataSet.state in [dsbrowse];
end;
form2中通过单button1来改变datasource1的DataSet值，事件如下：
procedure Tform2.button1Click(Sender: TObject);
begin
inputdatf.datasource1.enabled:=false;
inputdatf.datasource1.DataSet:=dm.Table2 ;
inputdatf.datasource1.enabled:=true;
inputdatf.Showmodal;
end;

接受答案了.