【搞定】对于DocViewBar，如何判断点击的是打印按钮**

chaoqiang

对于DocViewBar，如何判断点击的是打印按钮？
我看了相关的帖子，也加入了ActionList，并添加了ComponentPrintAction动作，同时执行其Execute事件。如下代码
procedure TPrintTestForm.ComponentPrintAction1Execute(Sender: TObject);
var
  p: TComponentPrintAction;
begin
  p := TComponentPrintAction.Create(self);
  p.ID := 42;       //41--printsetup  42--printview  43-print
  p.AutoDetect := true;
  p.Execute;
  p.Free;
   dialogs.showmessage('ComponentPrintAction1Execute');
end;

但怎么没有见到执行该段代码的痕迹？

chaoqiang

作了上面的这些操作之后，是不是还需要设置什么？

chaoqiang

请问为什么回帖子这么慢？

jiahaiminghr

楼主，文档操作的工具栏对应的Action是TBizDocAction

你可以在工具栏的 BeforeAction 事件中来处理：
procedure TMainForm.DocViewBarBeforeAction(Sender: TObject);
begin
  case TBizDocAction(Sender).ID of
      BizActnConsts.ActionPrintPrint: JsDialogs.ShowMsg('Print', '');
      BizActnConsts.ActionPrintPreview: JsDialogs.ShowMsg('Preview', '');
      BizActnConsts.ActionPrintSetup: JsDialogs.ShowMsg('PrintSetup', '');
  end;
end;

jiahaiminghr

SYSutils.Abort;
可以取消你的动作

chaoqiang

哦，谢谢！