
(*
 Delphi Object and Component Reference
# {bmc bm9.BMP} Popup, AutoPopup example
This example uses a pop-up menu. When the user presses the mouse button, the pop-up menu appears where the user clicked the mouse:
*) 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  PopupMenu1->AutoPopup = false;
}
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
  PopupMenu1->Popup(X, Y);
} 
