ActionManager问题~~求教高手~~~高分

Question

在ActionManager中新增New Standard Action中的DataSet中的几个Action。
我想在运行时改变DataSetAction的DataSource，编写过程如下：
procedure TfrmMain.ButtonsDataSource(aDS:TDataSource);
begin
    DataSetInsert2.DataSource:=aDS;
    DataSetEdit2.DataSource:=aDS;
    DataSetDelete2.DataSource:=aDS;
    DataSetCancel2.DataSource:=aDS;
    DataSetPost2.DataSource:=aDS;
end;
调用:
1.  ButtonsDataSource(dsCompany);
2.  ButtonsDataSource(dsProduct);
第一次调用有效，第二次......后调用无效！！！
请问是啥原因哦？？？？？
谢谢！！！！！！

Answer 1

TDataSource的数据源有没有开？

Answer 2

开了啊~~
DataSetAction能动态更换数据源吗？？？？

Answer 3

搞定
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  DBGrid1.DataSource := DataSource2;
  for i := 0 to ActionManager1.ActionCount -1 do
    if ActionManager1.Actions[i].Category = 'Dataset' then
       ActionManager1.Actions[i].HandlesTarget(DataSource2);
end;