如何将delphi打印预览窗口英文提示改成中文(100分)

请教各位大虾,如何将delphi打印预览窗口英文提示改成中文?谢谢啦

看你的样子是QuickReport的报表打印吧？
1、修改DCU文件
2、下载QuickReport的Enterprise 版本，修改源代码
3、自己做报表预览窗体。

楼上的说的对，自己做，很容易的，就是加几个按钮，调用QuickReport的方法和设置相应
属性即可。

自已做报表预览窗体比较好,

打开lib目录下的Qrprev.dfm文件，修改，编译即可

有一个很简单的办法，
修改Qrprev.dfm，如果是delphi6就用delphi打开，否则可以用记事本打开，修改那些
英文保存就ok了。
文件一般在delphi6/lib中。

我使用QuickReport的报表做的,内容也很简单,就是希望修改预览的英文提示,自已做报表预览窗体
是不是直接调用就可以,能跟详细一点吗,谢谢!

多人接受答案了。

用delphi打开lib目录下的Qrprev.dfm文件，
object QRStandardPreview: TQRStandardPreview
Left = 229
Top = 191
Width = 652
Height = 579
Caption = 'print preview'//玉兰窗体标题,可改之
Color = clBtnFace
ParentFont = True
KeyPreview = True
OldCreateOrder = True
Position = poScreenCenter
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object StatusBar: TStatusBar
Left = 0
Top = 533
Width = 644
Height = 19
Panels = <
item
Alignment = taRightJustify
Text = '0%'
Width = 40
end
item
Text = 'Page'
Width = 50
end>
SimplePanel = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 644
AutoSize = True
BorderWidth = 2
Flat = True
Images = Images
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
Width = 8
Caption = 'ToolButton1'
ImageIndex = 12
Style = tbsDivider
end
object ZoomFit: TToolButton
Left = 8
Top = 0
Hint = 'Zoom to fit'//可改之
Caption = 'ZoomFit'
Grouped = True
ImageIndex = 0
Style = tbsCheck
OnClick = ZoomToFitClick
end
object Zoom100: TToolButton
Left = 31
Top = 0
Hint = '100%'//可改之
Caption = 'Zoom100'
Grouped = True
ImageIndex = 1
Style = tbsCheck
OnClick = ZoomTo100Click
end
object ZoomToWidth: TToolButton
Left = 54
Top = 0
Hint = 'Zoom to width'//可改之
Caption = 'ZoomToWidth'
Grouped = True
ImageIndex = 2
Style = tbsCheck
OnClick = ZoomToWidthClick
end
object Separator1: TToolButton
Left = 77
Top = 0
Width = 8
Caption = 'Separator1'
ImageIndex = 3
Style = tbsDivider
end
object FirstPage: TToolButton
Left = 85
Top = 0
Hint = 'First page'//可改之
Caption = 'FirstPage'
ImageIndex = 3
OnClick = FirstPageClick
end
object PreviousPage: TToolButton
Left = 108
Top = 0
Hint = 'Previous page'//可改之
Caption = 'PreviousPage'
ImageIndex = 4
OnClick = PrevPageClick
end
object ToolButton2: TToolButton
Left = 131
Top = 0
Hint = 'Next page'//可改之
Caption = 'NextPage'
ImageIndex = 5
OnClick = NextPageClick
end
object LastPage: TToolButton
Left = 154
Top = 0
Hint = 'Last page'//可改之
Caption = 'LastPage'
ImageIndex = 6
OnClick = LastPageClick
end
object Separator2: TToolButton
Left = 177
Top = 0
Width = 8
Caption = 'Separator2'
ImageIndex = 7
Style = tbsDivider
end
object PrintSetup: TToolButton
Left = 185
Top = 0
Hint = 'Printer setup'//可改之
Caption = 'PrintSetup'
Enabled = False
ImageIndex = 7
OnClick = PrintSetupClick
end
object Print: TToolButton
Left = 208
Top = 0
Hint = 'Print'//可改之
Caption = 'Print'
Enabled = False
ImageIndex = 8
OnClick = PrintClick
end
object Separator3: TToolButton
Left = 231
Top = 0
Width = 8
Caption = 'Separator3'
ImageIndex = 9
Style = tbsDivider
end
object SaveReport: TToolButton
Left = 239
Top = 0
Hint = 'Save Report'//可改之
Caption = 'PrintSetup'
ImageIndex = 10
OnClick = SaveClick
end
object LoadReport: TToolButton
Left = 262
Top = 0
Hint = 'Load Report'//可改之
Caption = 'Print'
ImageIndex = 9
OnClick = LoadClick
end
object Separator4: TToolButton
Left = 285
Top = 0
Width = 8
Caption = 'Separator4'
ImageIndex = 11
Style = tbsDivider
end
object ExitButton: TSpeedButton
Left = 293
Top = 0
Width = 40
Height = 22
Caption = '&amp;Close'//可改之
OnClick = ExitClick
end
end
object QRPreview: TQRPreview
Left = 0
Top = 32
Width = 644
Height = 501
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
TabOrder = 2
OnPageAvailable = QRPreviewPageAvailable
OnProgressUpdate = QRPreviewProgressUpdate
PageNumber = 1
Zoom = 100
end
然后编译之

maming的方法很好,只是在设计模式下没有关闭.不过已经足够用了[]