组件中怎么取得包含该组件的父窗体的句柄?

Question

我的组件方法中要执行ShellExecute方法,执行一个外部程序或访问一个网址,API函数ShellExecute的第一个参数是HWND型的,也就是父窗体的句柄,那我在组件中要怎么取得这个句柄呢?
    ShellExecute在窗体中直接调用是没问题的,例如:ShellExecute(handle,nil,'index.htm',nil,nil,sw_shownormal);完全可以执行,但在组件中就不行了。是不是要把窗体句柄传进来，怎么传？

Answer 1

只要是TWINCONTROL组件就可以用Parent.Handle属性获得，如button1.Parent.Handle

Answer 2

TWinControl(mycmpnt.parent).handle ;
TWinControl(mycmpnt.owner).handle ;