TFnugryMouseNotify Component

Version 1.1

Copyright © 1997-98 Gleb Yourchenko

Contact: Gleb Yourchenko.

TFnugryMouseNotify is a simple component that encapsulates Windows system wide mouse hook functionality.

property Enabled :Boolean;

Use the Enabled property to enable/disable the hook.

TMouseNotifyEvent = procedure(Sender :TObject;

Msg :Integer; lpInfo :PMOUSEHOOKSTRUCT; var fDiscard :Boolean) of object;

property OnMouseMessage :TMouseNotifyEvent;

The OnMouseMessage event handler is called whenever mouse message is retrieved from the system message queue. The Msg parameter specifies the identifier of the mouse message, and the lpInfo parameter points to a MOUSEHOOKSTRUCT structure that contains detailed information about mouse event, including cursor position, client window, hit test code, etc. The fDiscard parameter controls whether or not mouse message should be posted to the rest of hook chain.

property OnChange :TNotifyEvent;

Use the OnChange event to respond to the Enabled property value changes.

The TFnugryMouseNotify component uses FNGMHLIB.DLL library, where the actual hook procedure resides. Make sure you include this library when deploying applications that use the component.