Delphi事件处理过程机制如何应用到Java中?
//事件处理过程定义//
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){
}
}
如何实现多个具有相同定义的事件处理过程实例?