Question

delphi7 如何实现在按下一个按钮后弹出一个菜单

Answer 1

你是想控制弹出式菜单？
这很简单，首先在Form上上至一个Button，然后放一个PopupMenu，然后把Button的PopupMenu属性与PopupMenu相关联，然后设置PopupMenu的菜单项！

Answer 2

//可以放一个PopMenu1在界面上，然后把一个按钮的popMenu属性指成这个popMenu1.

//代码方式做：
xxxprocedure TFrm_Brands.cmd_updateRateClick(Sender: TObject);
var pt:TRect;
begin
inherited; pt:=(sender as tBitBtn).BoundsRect;
MapWindowPoints(self.handle, HWND_DESKTOP, pt, 2);
pm_Addins.Popup(pt.Left+5, pt.Top+10);
end;