传递事件的问题 (只有这么多分数了,请见谅!)(48分)

主程序单向调用一个公共函数单元,可以向函数单元传递参数,调用公共事件和函数,
请教:可不可以传递主程序的事件到公共事件和函数里执行呢?
(注:公共函数单元不能调用主程序)
只有这么多分数了,请见谅!

用回调函数啊，类似dll

没看明白 是否是这个意思?
定义
TManagerCommandEvent = procedure(Sender: TObject; cmd_type, cmdstr, cmdstr1: string ) of object;
property ManagerCommandEvent:TManagerCommandEvent read FManagerCommandEvent write FManagerCommandEvent;

线程调用返回结果
ManagerCommandEvent(self,cmd_type,cmd_str,cmd_str1);
主窗口把响应函数给线程
if assigned(g_propThread) then g_propThread.ManagerCommandEvent := DoManagerCommand;

多人接受答案了。