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

2019-02-21 04:29:48 670 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

手把手教你修改miniwiggler配置信息，解决UDE连接问题（附FT_PROG工具下载）本文详细介绍了如何使用FT_PROG工具修改miniwiggler配置信息，解决UDE连接问题。通过分析FT2232芯片的EEPROM结构，提供从驱动安装到配置烧写的完整流程，帮助开发者实现无缝连接英飞凌TriBoard开发板。文章还包含常见错误解决方案和高级批量配置技巧。阅读详情

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

...全文

泰山派RK3576开发板部署Qwen3-VL-4B多模态模型实战指南：从模型转换到板端推理全流程本文提供了在泰山派RK3576开发板上部署阿里Qwen3-VL-4B多模态模型的完整实战指南。详细介绍了从环境准备、模型转换（包括视觉模型转换为.rknn格式和语言模型转换为.rkllm格式）、交叉编译到板端推理的全流程，重点讲解了如何利用RK3576的NPU进行硬件加速，实现高效的边缘AI应用。阅读详情

kldevo

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

victor_yang 2019-02-25

打赏
举报

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

kldevo 2019-02-25

打赏
举报

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

日立奔腾浪潮微软松下联想 2019-02-25

打赏
举报

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

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

lyhoo163 2019-02-21

打赏
举报

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

doloopcn 2019-02-21

打赏
举报

如果有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;

看那山瞧那水 2019-02-21

打赏
举报

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

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

相关推荐