本文整理自网络,侵删。
WinAPI: GetParent - 获取指定窗口的父窗口句柄//声明: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;
相关阅读 >>
Delphi xe ttask.waitforall/waitforany 一不小心会造成内存泄露
incyear:将一个tdatetime变量加减一定数量的年数
Delphi 如何遍历整个硬盘的各个目录,就像windows的查找功能那样
更多相关阅读请进入《Delphi》频道 >>