[[cHackAll]]

Aquí el ejemplo "corto"

Código Delphi [-]
...

  private
   procedure WMXButtonDown(var Message: TWMMouse); message $020B {WM_XBUTTONDOWN};
   procedure WMXButtonDown(var Message: TWMMouse); message $020C {WM_XBUTTONUP};
   procedure WMXButtonDblClk(var Message: TWMMouse); message $020D {WM_XBUTTONDBLCLK};
  public

...

Saludos "comiditos"