摘要： 一、在要回调的单元加一个回调类 type TMyCallback =procedure(X, Y: Integer;...其它参数) of object; 二、在单元 TMyClass=class()中加下面的回调过程变量 public FMyCallback: TMyCallback; 三、在要使 阅读全文