GetCursorPos

//单击左键弹起菜单 97 
void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    POINT pt;
    ::GetCursorPos(&pt);
    PopupMenu1->Popup(pt.x, pt.y);
}




posted @ 2012-06-03 17:50  XE2011  阅读(127)  评论(0)  编辑  收藏  举报