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);
}
//单击左键弹起菜单 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);
}