在delphi中我的一个按钮的单击事件和弹出菜单的单机事件相同，我应当怎么编写代码啊

在对象事件管理时，可设置 将按钮的onchange对应的函数设置弹出菜单的点击事件即可。
也可以在程序中设置
比如在窗口的创建事件中赋值(借鉴楼上的函数名)：Button1Click := N1Click

设置 OnClick 事件为同一个就行了。 例如，Button1的点击事件为：Button1Click，在弹出菜单的OnClick也设为 Button1Click。

假如button事件
procedure Tform1.Button1Click(sender:Tobject);
begin
showmessage('hello world');
end;

则在菜单点击事件中这么用：
procedure Tform1.N1Click(sender:TObject);
begin
button1Click(sender);
end;

第二个方法是将按钮中要做的事件做成一个函数，分别调用该函数就行了!