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

[kernelj]

例如:

procedure TClientForm.wbNavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);

我想在这个过程中获取 sender 的全部信息.

[亮剑_]

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

[bdmh]

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

[haitao]

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

[Harryfin]

[Quote=引用 2 楼 kernelj 的回复:]

恩,我知道sender是什么对象,sender是一个twebbrowser对象
[/Quote]
你自己showmessage(Sender.ClassName)就知道是什么了

[Harryfin]

用IS来判断类型，然后通过转型来访问它的属性

[kernelj]

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

[kernelj]

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

[Harryfin]

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

找找RTTI的资料吧。

[iamduo]

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