troubleshooting Question

Delphi 7 QuickReport with MouseWheel support

Avatar of Frits2
Frits2 asked on
Delphi
11 Comments1 Solution2406 ViewsLast Modified:
Hello Experts

I need the QuickReportForm to respond to the MouseWheel, now I found the next code snipe on this site from expert pcsentinel. Somehow I can't get this code working. using Delphi 7 & QuickReport 4.05. No errors messages but QRform does not respond on the MouseWheel.
what do I do wrong?
if there is an other solution I am happy to hear it
Many thanks,
Frits2

Type
    procedure MouseWheelHandler(var Message: TMessage); override;
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);

implementation
procedure TForm1.MouseWheelHandler(var Message: TMessage);
begin
with Message do
  Result := Perform(CM_MOUSEWHEEL, WParam, LParam);
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  QRForm.VertScrollBar.Position := QRForm.VertScrollBar.Position + 50;
  Handled:=true;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  QRForm.VertScrollBar.Position := QRForm.VertScrollBar.Position - 50;
  Handled:=true;
end;
ASKER CERTIFIED SOLUTION
sun4sunday

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 11 Comments.
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>

Mike

Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 11 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004