//事件处理过程定义//
public interface Click{
/**
 * Delphi:
 * procedure ClickEvent(Sender:TObject) of object;
 */
public void ClickEvent(Object Sender);
}
//执行外部类的事件处理过程//
public class Shape{
/**
 * Delphi:
 * e:ClickEvent;
 */
private Click e = null;

public void DoClick(){
if (e != null){
e.ClickEvent(this);
}
}
/**
 * Delphi:
 * function getClick:ClickEvent;
 */
public Click getClick(){
return e;
}
/**
 * Delphi:
 * procedure setClick(Value:ClickEvent);
 */
public void setClick(Click Value){
e = Value;
}
}
//外部类实现事件处理过程的流程//
public class Caller implements Click{
/**
 * 调用:Shape aShape = new Shape;
 *      aShape.setClick(this);
 * Delphi:
 * procedure ClickEvent(Sender:TObject);
 * begin
 * end;
 * 问题:如何实现多个具有相同定义的事件处理过程实例?
 * 例如:
 * public void ClickEvent1(Object Sender){
 * }
 * public void ClickEvent2(Object Sender){
 * }
 */
public void ClickEvent(Object Sender){

}
}如何实现多个具有相同定义的事件处理过程实例?