求好的方法

Question

我有三个单元
udata为数据模块、ubase为所有录入模块的父类、设ubase_one为它的一个子类
现udata中有一adodataset,我在base_one打开时用adodataset写了一条查询
我采用的是异步方式。
问
我怎样在udata.adodataset.data.adodataset.FetchProgress事件中写base_one的statusbar的text
要求
不要在udata引用所有的录入单元

Answer 1

给你的udata类作一个OnFetchProgress的事件
type
  uData = class
    private
      FOnFetchProgress: TNotifyEvent;
    public
      property OnFetchProgress: TNotifyEvent read FOnFetchProgress write FOnFetchProgress;
  end;  uData.OnFetchProgress = ACustomProcedure;

Answer 2

自定义一条消息，然后发送，在base_one模块中接收这条消息就行了不对的地方请大哥原谅