Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


ID: 24499, Scrolling Page Using MouseWheel in QuickReport StandardPreview;

by Budi Sayoga Email: Anonymous


Quick Report Preview, Scrolling Page Preview, Correcting MouseWheel
Download Details
FTP  download also available 0 bytes
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 5.0  to 7.0 0 downloads
Copyright: No significant restrictions


Size: 0 bytes
Updated on Mon, 12 Mar 2007 20:57:37 GMT
Originally uploaded on Thu, 08 Mar 2007 19:04:08 GMT
Description
Use this following steps :

1. Drop the Application event Component from Addtional Pallete to Project Form.
2. DoubleClick OnMessage event
3. Copy-Paste This Code :

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
i: SmallInt;
pt : Tpoint;
begin
GetCursorPos(pt); // Get the position from Cursor
if Msg.message = WM_MOUSEWHEEL then // WheelMouse Message when scrolling
begin
Msg.lParam := 0;
i := HiWord(Msg.wParam) ;
if i > 0 then // If Scrolling Up
// Function to send Message to Object below the Cursor Position
SendMessage(WindowFromPoint(pt),WM_VSCROLL, SB_LINEUP,0)
else // If Scrolling Down
SendMessage(WindowFromPoint(pt),WM_VSCROLL, SB_LINEDOWN,0);
Handled := False;
end;
end;

This Code Working with All TWincontrol Class Object like TDBGrid,TListbox, TScroollBox and it's Descendants in SDI/MDI Application also any Form that created from Main Form Project. It isn't tested but I hope this Code working with All Standard Preview Report like RaveReport Preview, SyneditPreview etc. CMIIW :)

// TBawor ©2007 :: Purwokerto
// Coding With Delphi 6.0

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03