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

在Delphi XE5中，可以使用TFrame和TPanel组件将一个窗口嵌入到控件中。

以下是步骤：

1. 在 Delphi XE5 中创建一个新项目。
2. 将一个 TFrame 组件拖放到主窗口中。
3. 在 TFrame 上创建一个 TPanel 组件。
4. 设置 TPanel 的 Align 属性为 alClient，这样它就会充满整个 TFrame。
5. 使用 Windows API 函数 FindWindow 或 FindWindowEx 查找要嵌入的窗口的句柄。
6. 使用 Windows API 函数 SetParent 将窗口嵌入到 TPanel 中。

以下是示例代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Frame1: TFrame;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FEmbeddedHandle: HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  WM_SETREDRAW = $000B;

function FindWindowByCaption(ACaption: string): HWND;
var
  Handle: HWND;
  Title: array[0..255] of Char;
begin
  Result := 0;
  Handle := FindWindow(nil, nil);
  while Handle <> 0 do
  begin
    GetWindowText(Handle, Title, SizeOf(Title));
    if Pos(ACaption, Title) > 0 then
    begin
      Result := Handle;
      Break;
    end;
    Handle := GetWindow(Handle, GW_HWNDNEXT);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 查找要嵌入的窗口句柄
  FEmbeddedHandle := FindWindowByCaption('Calculator');
  if FEmbeddedHandle <> 0 then
  begin
    // 停止窗口的重绘
    SendMessage(FEmbeddedHandle, WM_SETREDRAW, 0, 0);
    // 将窗口嵌入到 TPanel 中
    SetParent(FEmbeddedHandle, Frame1.Panel1.Handle);
    // 重设窗口大小和位置
    SetWindowPos(FEmbeddedHandle, 0, 0, 0, Frame1.Panel1.Width, Frame1.Panel1.Height, SWP_NOZORDER or SWP_SHOWWINDOW);
    // 恢复窗口的重绘
    SendMessage(FEmbeddedHandle, WM_SETREDRAW, 1, 0);
    // 强制窗口重绘
    RedrawWindow(FEmbeddedHandle, nil, 0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if FEmbeddedHandle <> 0 then
  begin
    // 将窗口还原为独立窗口
    SetParent(FEmbeddedHandle, 0);
  end;
end;

end.

在上面的代码中，FindWindowByCaption 函数用于根据窗口标题查