窗口中的弹出式右键菜单delphi源码.rar

窗口中的弹出式右键菜单-delphiPopupMenu源码,　　procedureTForm1.Button1Click(Sender:TObject);　　var　　Poin:TPoint;　　begin　　Poin:=Point(Button1.Left,Button1.TopButton1.Height);　　Poin:=ClientToScreen(Poin);　　PopupMenu1.Popup(Poin.X,Poin.Y);　　end;