本帖最后由 sibad_sh 于 2009-11-03 15:46:49 编辑

解决方案 »

  1.   

    jiap1723:procedure Th.Execute;
    begin
      ....
      But.OnClick := Self.BtnClick; 
      ....
    end;这样Self就是Th的对象了呀,我需要引用类TTestFrm的对象。
      

  2.   

    创建线程的时候传进去不过VCL控件不是线程安全的,不仅如此,从逻辑上将不需要在子线程中进行UI操作,子线程要操作UI时只需要通知主线程,让主线程来操作就可以了。如果主线程被阻塞了,那么你应该将导致阻塞的代码放到子线程中去处理。
      

  3.   

    在类型库中增加activeform同名新属性
      

  4.   

    but.onclick 是个函数指针,你完全可以通过   publick         procedure yourclick(sender:Tobject);来转一下