请问如何用delphi XE5把别的窗口嵌入到控件里面？

### 回答1：
在 Delphi XE5 中将另一个窗口嵌入到控件中可以通过以下步骤实现：

1. 创建一个 TWinControl 类型的控件，例如 TPanel、TFrame 等。

2. 调用 WinApi 中的 SetParent 函数，将目标窗口的句柄设置为控件的父窗口句柄，即将其嵌入到控件中。

3. 调整嵌入窗口的大小和位置，使其与控件的大小和位置相匹配。

以下是一个简单的示例代码，演示如何将 Internet Explorer 的窗口嵌入到 Delphi XE5 的 TPanel 控件中：

procedure TForm1.FormCreate(Sender: TObject);
var
  ieHandle: HWND;
begin
  ieHandle := FindWindow('IEFrame', nil);
  if ieHandle <> 0 then
  begin
    SetParent(ieHandle, Panel1.Handle);
    SetWindowPos(ieHandle, 0, 0, 0, Panel1.Width, Panel1.Height, SWP_NOZORDER or SWP_SHOWWINDOW);
  end;
end;

在这个示例代码中，FindWindow 函数查找 Internet Explorer 窗口的句柄，如果找到了，就调用 SetParent 函数将其嵌入到 TPanel 控件中，并通过 SetWindowPos 函数调整其大小和位置，使其与 TPanel 控件相匹配。

### 回答2：
在Delphi XE5中，可以通过使用WinAPI中的SetParent函数来将一个窗口嵌入到另一个控件中。

首先，要确保你已经创建了一个容纳嵌入窗口的控件，比如一个TPanel或TWinControl。然后，你需要找到要嵌入的窗口的句柄（handle）。可以通过使用FindWindow或FindWindowEx函数来获得要嵌入窗口的句柄。

一旦你有了要嵌入窗口的句柄，你可以使用SetParent函数来将它嵌入到控件中。SetParent函数的用法如下：

SetParent(hwndChild, hwndNewParent);

其中，hwndChild是要嵌入的窗口的句柄，hwndNewParent是要嵌入的控件的句柄。

在Delphi XE5中，可以使用Winapi.Windows和Winapi.Messages单元中的函数进行以上操作。可以使用以下代码示例将一个窗口嵌入到一个TPanel控件中：

uses
  Winapi.Windows, Winapi.Messages;

procedure EmbedWindowIntoControl(AControl: TWinControl; AWindowHandle: HWND);
begin
  SetParent(AWindowHandle, AControl.Handle);
end;

// 在需要嵌入窗口的控件的事件中调用EmbedWindowIntoControl函数
procedure TForm1.Button1Click(Sender: TObject);
var
  WindowHandle: HWND;
  Control: TWinControl;
begin
  // 获取要嵌入窗口的句柄
  WindowHandle := FindWindow(nil, 'WindowCaption');

  if WindowHandle <> 0 then
  begin
    // 获取要嵌入窗口的控件
    Control := Panel1;

    // 将窗口嵌入到控件中
    EmbedWindowIntoControl(Control, WindowHandle);
  end;
end;

在上面的示例中，我们使用FindWindow函数来根据窗口标题来查找要嵌入的窗口的句柄。然后，我们将这个窗口嵌入到一个TPanel控件中。

希望上述信息对你有所帮助！

### 回答3：
要将其他窗口嵌入到Delphi XE5的控件中，可以使用TWinControl控件和SetParent函数来实现。

首先，创建一个TWinControl控件，用来作为容器控件，可以是任何继承自TWinControl的控件，比如TPanel。

创建待嵌入的窗口的句柄，可以通过FindWindow函数来获取其他窗口的句柄。

然后，使用SetParent函数将待嵌入的窗口句柄设置为容器控件的句柄，将其嵌入到容器控件中。示例代码如下：

var
  MainForm: TForm; // 主窗口
  ContainerPanel: TPanel; // 容器控件
  TargetWindowHandle: HWND; // 待嵌入窗口句柄

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  MainForm := Self; // 保存主窗口句柄
  
  ContainerPanel := TPanel.Create(Self); // 创建容器控件
  ContainerPanel.Parent := Self; // 设置容器控件的父控件为主窗口
  ContainerPanel.Align := alClient; // 设置容器控件大小和主窗口一致

  // 获取待嵌入窗口的句柄，此处假设待嵌入窗口的类名为'TargetWindowClass'
  TargetWindowHandle := FindWindow('TargetWindowClass', nil);
  if TargetWindowHandle <> 0 then
  begin
    SetParent(TargetWindowHandle, ContainerPanel.Handle); // 将待嵌入窗口嵌入到容器控件中
    SetWindowPos(TargetWindowHandle, HWND_TOP, 0, 0, ContainerPanel.Width, ContainerPanel.Height, SWP_SHOWWINDOW); // 设置待嵌入窗口的位置和大小
  end;
end;

在上述代码中，首先创建了一个TPanel控件作为容器控件，然后通过FindWindow函数获取待嵌入窗口的句柄，再使用SetParent函数将待嵌入窗口嵌入到容器控件中，并设置其位置和大小。

最后，如果待嵌入窗口是一个可见窗口，则需要使用SetWindowPos函数设置其位置和大小，并调用SWP_SHOWWINDOW参数来显示该窗口。

通过以上步骤，就可以将其他窗口成功嵌入到Delphi XE5的控件中。