Delphi 如何判断用户打印对话框是点了“确定”还是“取消” 按钮

[kldevo]

如题，使用的是Delphi的 FastReport 打印控件，想知道用户弹出来打印对话框的时候，如何知道是点了确定还是取消按钮。
获取反馈结果在做处理，（目的是想要知道是否真正打印了，以获取总打印次数）

[看那山瞧那水]

这个对话框好像代码可以设置不弹出的？这种情况就不好判断了。 用afterPrint事件不行？

[doloopcn]

如果有FastReport源码的话，应该可以

你跟踪FastReport中ShowReport函数
应该就可以设置一个状态字，供你在程序中使用了，即使程序不弹出打印对话框
修改后应该需要重新编译安装一下FastReport

一般的方法很难做到，因为Delphi并不能获取到打印对话框窗口中发生的消息，
以下是测试代码，但代码中并不能截获“取消”或“确定”按下后产生的message
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if not (Msg.hwnd in [Self.Handle,Button1.Handle,Memo1.Handle]) then
Memo1.Lines.Add(Format('hwnd=$%x, message=$%x, wp=%d, lp=%d',[Msg.hwnd,Msg.message,Msg.wParam,Msg.lParam]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
PrintDialog1.Execute;
Timer1.Enabled:=False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
hwndPrintForm,
hwndOkButton,
hwndCancelButton:HWND;
begin
hwndPrintForm := FindWindow(nil,'打印');
hwndOkButton := FindWindowEx(hwndPrintForm,0,nil,'确定');
hwndCancelButton := FindWindowEx(hwndPrintForm,0,nil,'取消');
Memo1.Lines.Add(Format('hwndPrintForm=$%x, hwndOkButton=$%x, hwndCancelButton=$%x',[hwndPrintForm,hwndOkButton,hwndCancelButton]));
end;

[lyhoo163]

设计一个全局变量，代码中，只要打印了就加1。这只能大致，不能精确。因取消打印，或打印机未反映会，引起计数不准。

[日立奔腾浪潮微软松下联想]

fast report的话可以写一个OnRunDialogs事件处理：

procedure frxReport1OnRunDialogs(var Result: Boolean);
begin
Result := DialogPage1.ShowModal = mrOk;
if Result then ...
end;

[kldevo]

谢谢各位，已经找到解决方法， 在onpringreport 事件中去写，这个事件是捕获打印点击确定按钮触发，没有确定不会触发该事件， 然后通过全局变量去控制。 结贴

[victor_yang]

我也遇到了同样的问题，不过我已经解决了
https://mp.csdn.net/postedit/87912266