delphi XE5编程语言写一段把其它窗口嵌入到控件的代码

最新推荐文章于 2024-12-03 16:19:30 发布

Ramaswamy

最新推荐文章于 2024-12-03 16:19:30 发布

阅读量195

点赞数

本文链接：https://blog.youkuaiyun.com/weixin_42608318/article/details/129508676

版权

在 Delphi XE5 中，可以使用 SetParent 函数将一个窗口嵌入到控件中，以下是一个示例代码：

procedure EmbedWindow(const AControl: TWinControl; const AHandle: HWND);
begin
  // 将 AHandle 窗口句柄嵌入到 AControl 控件中
  SetParent(AHandle, AControl.Handle);

  // 设置嵌入窗口的位置和大小
  SetWindowPos(AHandle, 0, 0, 0, AControl.Width, AControl.Height, SWP_NOZORDER or SWP_SHOWWINDOW);
end;