学步园

//声明:
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;


//效果图:

---