FastReport 自定义预览页问题

[Dillonl]

Delphi6.0+FastReport3.0,使用frxpreview自定义预览页，不能使用鼠标滚轮键上下移动，而用FastReport默认的预览页预览的时候是可以使用的，请问怎样解决，是否是使用frxpreview的mouseWheelHandler方法，怎样使用？

[jcxhan]

up

[CACACACACA]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, frxClass, frxDBSet, frxPreview, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
frxPreview1: TfrxPreview;
frxDBDataset1: TfrxDBDataset;
Table1: TTable;
frxReport1: TfrxReport;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure WndProc(var Message: TMessage); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WndProc(var Message: TMessage);
begin
if (Message.Msg=WM_MOUSEWHEEL) then
frxPreview1.Next; //根据要求写代码.
inherited WndProc(Message);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
frxPreview1.Report.ShowReport(true);
end;

end.

[CACACACACA]

是一样的.
因为我设置frxReport的privew属性了.
first,prior,两个方法.

[Dillonl]

谢谢jjwwang，问题已经解决，我采用了frxPreview1的MouseWheelScroll方法，修改你的代码如下：
procedure TForm1.WndProc(var Message: TMessage);
begin
if (Message.Msg=WM_MOUSEWHEEL) then
begin
if Message.wparam<0 then
frxpreview1.MouseWheelScroll (-1) //下移
else
frxpreview1.MouseWheelScroll (1); //上移
end;
inherited WndProc(Message);
end;

[Dillonl]

多谢jjwwang，frxPreview1.Next是翻到下一页，如果需要上下移动，用什么代码（没有找到）？另外 frxPreview1.Report.ShowReport(true);在我的电脑里面执行不了（出错），只能执行frxreport1.ShowReport(true);同样是显示报表内容。