В сурсах есть такое
// Mouse events
event OnLButtonDown( WindowHandle a_WindowHandle, int X, int Y );
event OnLButtonUp( WindowHandle a_WindowHandle, int X, int Y );
event OnLButtonDblClick( WindowHandle a_WindowHandle, int X, int Y );
event OnRButtonDown( WindowHandle a_WindowHandle, int X, int...