任何查看某个对象的全部信息

例如:procedure TClientForm.wbNavigateComplete2(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant);我想在这个过程中获取 sender 的全部信息. 

解决方案 »

  1.   

    全部信息，哪些信息呢
    首先还是要判断出Sender是什么对象吧，要不然只能取出TObject类中的属性值
      

  2.   

    恩,我知道sender是什么对象,sender是一个twebbrowser对象
      

  3.   

    既然知道，那就TWebbrowser(Sender)去访问其属性
      

  4.   

    是运行时 人手工查看，还是程序去取得？
    前者，把对象变量名加到evaluate或watch里，就能看到了
      

  5.   

    你自己showmessage(Sender.ClassName)就知道是什么了
      

  6.   

    我是想把该对象的全部属性输出,然后比对两次操作过程中获得的 sender 对象是不是完全相同,主要是想判别sender对象然后根据不同的对象去执行不同的代码.
      

  7.   

    只能输出PUBLISHED属性下的（如果你不是D2010的话），而且你要注意递归输出的问题。找找RTTI的资料吧。
      

  8.   

    用 TypInfo 里的函数，就可以得到你想要的了。