急用简单问题:如何给一个控件的事件赋值？

我自己写一个函数，不是在form的定义中写的，请问怎么将这个函数赋值给一个控件的事件，比如OnReceive()事件，参数都一样，就是一个是procedure of Object,另一个不能声明成of Object,怎么办？自己写的这个函数是在写dll是的dpr文件中写的？谢谢！

解决方案 »

  1.   

    OnReceive=self.DoRecive;
    private 
       procedure DoRecive...procedure DoRecive...
      

  2.   

    函数放在那个form就在调用的时候uses 这个form假设这个函数是myf1(参数);
    假设在button.click事件中调用，可以这样写：procedure TForm1.Button1Click(Sender: TObject);//////在这个事件里面写beginmyf1(参数);end;
      

  3.   

    呵呵  jinjazz(近身剪（充电中...）)  说的对。。就是一个地址而已 直接赋过去就是
      

  4.   

    程序如下：
    library Cardcomuses
    …………var
    …………procedure DoReceive(Sender:TObject;……);
    begin
    …………
    end;procedure …………
    procedure …………begin
      Myvcl:=TVcl.Create(nil);
      Myvcl.OnReceive:=????(这里应该是什么呢？)
    end;
      

  5.   

    如果同一个类中的方法，可以用Myvcl.OnReceive:=DoReceive;如果不是同一个类中的方法可以直接付地址@Myvcl.OnReceive:=@DoReceive;