调整QuickReport控件界面和提示信息为中文

本文介绍了一种简单的方法,通过直接修改 Delphi QuickReport 的 Qrprev.dfm 文件,将打印预览窗口的英文界面调整为中文界面,提高用户体验。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

关键字:delphi QuickReport 中文 提示信息 界面
        QuickReport提供的默认打印预览窗口是英文界面的,如果开发的中文软件中带有这种英文信息,对客户不免造成一定的不便,整体的界面风格也不统一,因此有必要将该英文界面调整为中文界面。
        网上介绍了一些通过单独开发窗体然后封装QuickReport,从而实现中文界面的方法,这种方法较为复杂。这里介绍一种非常简单的方法,那就是直接调整QuickReport的相关窗体文件,将提示信息或者界面调整为中文。
        QuickReport对应的窗体文件为Qrprev.dfm,在目录../Borland/Delphi6/Lib下。通过delphi直接打开Qrprev.dfm,然后将其中对应的英文(hint属性部分或者其他caption属性部分)更改成中文就可以了。保存后,虽然delphi将自动将这些中文转换成类似于#26368#21512#36866#22823#23567的形式,但这不影响程序的使用。
        用户重新编译自己的程序,QuickReport打印预览窗口中的界面和提示信息已经变成中文的形式了。
        enjoy it!
 
方便quickreport控件自动换行问题 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; BitBtn1: TBitBtn; btnPrev: TBitBtn; btnPrt: TBitBtn; btnExit: TBitBtn; Memo1: TMemo; procedure btnPrevClick(Sender: TObject); procedure btnPrtClick(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure btnExitClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2,Unit3; {$R *.dfm} procedure TForm1.btnPrevClick(Sender: TObject); begin //调用QuickReport3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //预览 Form3.QuickReport3.preview; end; procedure TForm1.btnPrtClick(Sender: TObject); begin //调用QuickReport3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //打印 //Form3.QuickReport3.PreviewModal; Form3.QuickReport3.PrinterSetup; Form3.QuickReport3.Print; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin with DM.ADOQyp do begin close; sql.Clear; sql.Add(' select BM,MC from zd_yp where bm like ''04443'' '); open; end; //Form3.QRMemo1.Lines.Text:= DM.ADOQyp.FieldValues['MC'].AsString; //Form3.QRMemo1.Lines.Text:= DM.ADOQyp.FieldByName('MC').AsString; //Form3.QRMemo1.Lines.Text:= Memo1.Text; Form3.QRRichText1.Lines.Text := DM.ADOQyp.FieldByName('MC').AsString; end; procedure TForm1.btnExitClick(Sender: TObject); begin close; end; end.
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

freeknightlcw

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值