//声明: GetParent( hWnd: HWND {窗口句柄} ): HWND; {返回父窗口句柄} //举例: procedure TForm1.Button1Click(Sender: TObject); var h1,h2: HWND; begin h1 := GetParent(Button1.Handle); h2 := Panel1.Handle; ShowMessage(IntToStr(h1)); {590862} ShowMessage(IntToStr(h2)); {590862} h1 := GetParent(Panel1.Handle); h2 := Self.Handle; ShowMessage(IntToStr(h1)); {459824} ShowMessage(IntToStr(h2)); {459824} ShowMessage(IntToStr(GetParent(Handle))); {0} end; //效果图:
![r_122.png](https://i-blog.csdnimg.cn/blog_migrate/bbe6f2ab2c8019087355aa22792b0c31.png)