BCB线程中调用主界面的回调函数

网上的回调函数都是API例子，学习函数指针倒是不错，可是很难让初学者立即应用。常见的情况是辅线程完成某事件后需要“通知”主界面，比如常见的进度条——线程中完成一定的进度后即通知主界面显示到一定的刻度。本程序解决了bcb中回调函数的实用问题，可以当模板套用。代码有一定的注释，简单易懂，至少对于学BCB的人来说，是网上找不到的例子！Form1->ProgressBar1->Position=0;pMyCallback=newcallthread(false);//开启线程pMyCallback->RegisterDataCallBackFun(Progress);