Kingron(单身走我路……) 和 firetoucher(风焱) ( ) 在吗？

Question

如果把button换成popupmenu下的菜单项事件呢。怎么写啊。

Answer 1

一样的，不过判断一下
if sender is tbutton then
  edit.text:=  (sender as tbutton).caption;
if sender is TMenuItem then
 edit.text:=  (sender as TMenuItem).caption;

Answer 2

一样，换成菜单，Sender就表示被点击的那个菜单项

Answer 3

事件赋值
menuitem1.onclick := urclick;就自己改一下。

Answer 4

定义一个procedure myClikc(Sender:TObject);
这样,不管是button,还是popupmenu,只要事件后只有(Sender:TObject)这一个参数的.都可以绑定到你自定义的myClick上.
你可静态绑定, 直接在事件中选中myClick就可以了.
你也可以动态绑定 就如 firetoucher(风焱) 所说.
至于,要知道是谁调用了这个事件,
Sender is 类型 //可以知到它是否这个类型
(Sender as 类型).Name  //可以得到这个调用者的Name

Answer 5

在事件编辑器中
把MenuItem1的OnClick设为Button1Click
这么一连就行了