销售管理软件版1楼: 我想对一个button控件单击左键出现Popupmenu菜单，怎么设置？我找了半天找不出来。
现在只能点右键才出现popupmenu。谢谢！

2楼: 把Button的Popupmenu属性设置为某一PopupMenu就行了。 如用友财务软件论坛

3楼: procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
v_P: TPoint;
begin
v_P.X := X;
v_P.Y := Y;
v_P := Button1.ClientToScreen(v_P);
PopupMenu1.Popup(v_P.X, v_P.Y);
end;

4楼: 谢谢两位！

5楼: 把Avalon的代码稍稍改一改
if Button=mbLeft then //如果点右键时不想弹出菜单
begin
......
end;

6楼: 我的button怎么才能弹上来？