Question

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

请高手帮一下忙
就是如果两个事件的响应代码相同，如何重用代码
上面的回答我不是很懂，能不能详细一点啊

Answer 1

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

Answer 2

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

Answer 3

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

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

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

Answer 4

我不是给按钮上加图片，我是说给菜单上加图片就像qq的主菜单一样，在菜单的最左边上一幅图片，上而网友说用xpmenu控件，是不是delphi的内部控件啊，我怎么没有找到啊？