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