最好不是这个。我试过了。调试通不过。用showmodal会出错---- 1. 新 建 一 个 窗 体, 设 置Name 为MyPreview。 ---- 2. 在 窗 体 上 添 加 一Toolbar 控 件, 模 仿 默 认 预 览 窗 口 创 建 相 应 的Toolbutton, 并 设
置 各 按 钮 的Hint 提 示。 ---- 3. 添 加 一Panel 控 件, 对 齐 方 式 置 为alBottom。 再 在 此Panel 上 放 一ProgressBar( 左 对 齐)
和Panel( 右 对 齐), 分 别 显 示 报 表 装 载 进 度 和 其 他 提 示 信 息。 ---- 4. 添 加QRPreview 控 件, 对 齐 方 式 置 为alClient。 ---- 5. 添 加OpenDialog, 设 置Filter 属 性 为*.QR; 添 加SaveDialog, 设 置Filter 属 性 为
*.QR|*.TXT|*.HTM|*.CSV, 设 置DefaultExt 属 性 为*.QR。 ---- 6. 双 击 各 个Toolbutton, 输 入 相 应 代 码。 ---- 可 以 按 以 下 方 法 调 用 自 定 义 预 览 窗 口。 ---- 重 载TQuickRep 的OnPreview 事 件, 输 入 如 下 代 码:
可以运行,立即放分。[email protected]
置 各 按 钮 的Hint 提 示。 ---- 3. 添 加 一Panel 控 件, 对 齐 方 式 置 为alBottom。 再 在 此Panel 上 放 一ProgressBar( 左 对 齐)
和Panel( 右 对 齐), 分 别 显 示 报 表 装 载 进 度 和 其 他 提 示 信 息。 ---- 4. 添 加QRPreview 控 件, 对 齐 方 式 置 为alClient。 ---- 5. 添 加OpenDialog, 设 置Filter 属 性 为*.QR; 添 加SaveDialog, 设 置Filter 属 性 为
*.QR|*.TXT|*.HTM|*.CSV, 设 置DefaultExt 属 性 为*.QR。 ---- 6. 双 击 各 个Toolbutton, 输 入 相 应 代 码。 ---- 可 以 按 以 下 方 法 调 用 自 定 义 预 览 窗 口。 ---- 重 载TQuickRep 的OnPreview 事 件, 输 入 如 下 代 码:
可以运行,立即放分。[email protected]
解决方案 »
- DelphiTwain 扫描如果无纸不能正常结束,怎么解决???
- delphi里面有没有控件,实现走马灯的效果
- 在delphi中用Access数据库把表中的某一字段(asd)排序后,如何在另一字段(cde)自动填上(写入)排名序号?
- 实现信使群发
- 如何判断一个TImage对象是否已经加载了图片或者通过Canvas方法在方面添加了图形?
- 求助——带图片的ComboBox(类似qq登录界面的效果)
- 今天生日,散分!
- 在NT系统中如何捕捉ENTER按键
- ado到底是什么?
- 高手请进!关于捕获程序运行时错误的问题。
- 1)双击stringgrid最上面一行fixedrows的分隔线时触发什么事件?2)单击stringgrid最上面一行fixedrows的Cells时触发什么事件?在线等待!
- dbgrid绑定ADO.Recordset
用show吧