请问如何把让一个类的所有事件共有同一段代码

Question

有这个必要吗
不要问亳无意义的问题

Answer 1

你睡醒了吗？
任何一个类的所有事件都不可能是相同的接口啊，除非是其中几个接口相同的才可以实现共享

Answer 2

zengyufeng说的有道理
给你一段代码
for i:=0 to form1.ComponentCount-1 do
      begin
         if Form1.Components[I] is TImage then
          (Form1.Components[I] as Timage).PopupMenu:=nil;
      end;  if TImage(Sender).name='Image3' then image3.PopupMenu:=PopupMenu1;
  if TImage(Sender).name='Image4' then image4.PopupMenu:=PopupMenu1;
  if TImage(Sender).name='Image5' then image5.PopupMenu:=PopupMenu1;
  if TImage(Sender).name='Image6' then image6.PopupMenu:=PopupMenu1;
  if TImage(Sender).name='Image7' then image7.PopupMenu:=PopupMenu1;
  if TImage(Sender).name='Image8' then image8.PopupMenu:=PopupMenu1;
自己看看就明白了