如何在ActivexForm的后台线程里抛出事件啊！

如题，开发一个OCX控件，控件中如果需要抛事件就用FEvents.Onxxxxxx;就可以，该控件中使用一个后台监控线程，现在的问题是如何在这个线程中调用FEvents.Onxxxxxx;向外抛出事件。
望各位帮忙，不吝赐教！

解决方案 »

  1.   


    type
        TReceiveDataEvent = procedure(Sender: TObject; Buffer: Pointer;
                                      BufferLength: Word) of object;FOnReceiveData:     TReceiveDataEvent;property OnReceiveData: TReceiveDataEvent
              read FOnReceiveData write FOnReceiveData;procedure TComm.ReceiveData(Buffer: PChar; BufferLength: Word);
    begin
         if Assigned(FOnReceiveData) then
            FOnReceiveData( self, Buffer, BufferLength )
    end;摘自SPCOMM控件的代码