CONSTANT long WM_MOUSEMOVE= 512 CONSTANT long WM_LBUTTONDOWN = 513 CONSTANT long WM_LBUTTONUP= 514 CONSTANT long WM_LBUTTONDBLCLK= 515 CONSTANT long WM_RBUTTONDOWN= 516 CONSTANT long WM_RBUTTONUP= 517 CONSTANT long WM_RBUTTONDBLCLK= 518 CONSTANT long WM_USER= 1024 CONSTANT long NIN_BALLOONSHOW=(WM_USER + 2) CONSTANT long NIN_BALLOONHIDE=(WM_USER + 3) CONSTANT long NIN_BALLOONTIMEOUT=(WM_USER + 4) CONSTANT long NIN_BALLOONUSERCLICK=(WM_USER + 5)
m_baselm_menu
CHOOSE CASE lparam CASE WM_MOUSEMOVE // CASE WM_LBUTTONDOWN //鼠标左键按下 CASE WM_LBUTTONUP //鼠标左键弹起 CASE WM_LBUTTONDBLCLK //鼠标左键双击 CASE WM_RBUTTONDOWN // SetFocus ( this ) lm_menu = CREATE m_base lm_menu.PopMenu(PointerX(),PointerY()) DESTROY lm_menu CASE WM_RBUTTONUP // CASE WM_RBUTTONDBLCLK // CASE NIN_BALLOONSHOW // CASE NIN_BALLOONHIDE // CASE NIN_BALLOONTIMEOUT // CASE NIN_BALLOONUSERCLICK // CASE ELSE Beep(0) END CHOOSE