【搞定】怎么让DataNavigator的按钮失效？

chenliang82

怎么让DataNavigator的按钮失效？

如题！就是点击新增后，不执行他的操作，而执行我要的操作！

yancm

在DataNavigator1的BeforeAction事件里面写代码代替系统的操作。

chenliang82

我写了，但是没有替代，他们都执行了一遍！
procedure TXXCX.DataNavigatorQueryBeforeAction(Sender: TObject; var Accept: Boolean);
begin
     case TBizDataSetAction(Sender).ID of
      BizActnConsts.ActionDataSetAppend:
          begin
            If (edit1.Text<>'') and (edit1.Text<>'') then
              begin
              DataSetBrokerQuery.DataSet.Append;
              DataSetBrokerQuery.DataSet.FieldValues['FTYPE']:=Edit1.Text;
              DataSetBrokerQuery.DataSet.FieldValues['FNAME']:=Edit2.Text;
              DataSetBrokerQuery.DataSet.FieldValues['FCONTENT']:=TBizDataSet(DataGridResult.DataSource.DataSet).UserFilter.ToString;
              DataSetBrokerQuery.DataSet.Post;
              end
              else
              dialogs.showmessage('请输入方案类型与名称!');
            end;
      BizActnConsts.ActionDataSetSave: dialogs.ShowMessage('您定制的查询方案已保存！'); { 保存 }
      end;
end;

但是我点击新增的时候，多了两条数据！

yancm

Accept:=false; 代表不再执行系统代码。

chenliang82

谢谢，搞定了！