delphi XE5的API函数SetParent用法

Delphi XE5的SetParent函数是WinAPI中的函数，用于将一个子窗口控件关联到另一个父窗口控件上，从而使子窗口控件成为父窗口控件的子控件。函数原型如下：

function SetParent(hWndChild: HWND; hWndNewParent: HWND): HWND; stdcall;

参数说明：

- `hWndChild`：子窗口控件句柄。
- `hWndNewParent`：新的父窗口控件句柄。如果此参数为NULL，则将子窗口控件从其当前父窗口中分离，使其成为一个顶级窗口控件。

返回值：

- 如果函数成功，则返回新的父窗口控件句柄。
- 如果函数失败，则返回NULL。

使用示例：

以下示例演示如何将一个子窗口控件关联到一个父窗口控件上：

procedure TForm1.Button1Click(Sender: TObject);
var
  ChildHandle: HWND;
  ParentHandle: HWND;
begin
  // 获取子窗口控件句柄
  ChildHandle := Memo1.Handle;
  // 获取父窗口控件句柄
  ParentHandle := Panel1.Handle;
  // 将子窗口控件关联到父窗口控件上
  SetParent(ChildHandle, ParentHandle);
end;

此代码将Memo1控件作为子控件，将Panel1控件作为父控件，将Memo1关联到Panel1上，使之成为Panel1的子控件。

相关问题

delphi XE5 WinApi.Windows.SetParent用法例子

### 回答1：

示例：SetParent（hwndChild，hwndNewParent），这个函数可以将窗口句柄hwndChild的父窗口设置为hwndNewParent。例如，可以使用SetParent（hChildWnd，hParentWnd）来将hChildWnd的父窗口设置为hParentWnd。

### 回答2：
Delphi XE5中的WinApi.Windows.SetParent函数用于将一个子控件的父控件更改为另一个控件。其用法如下：

WinApi.Windows.SetParent(ChildHandle: HWND; NewParentHandle: HWND): HWND;

其中，ChildHandle是要更改父控件的子控件的句柄，NewParentHandle是要设置为子控件的新父控件的句柄。

例如，我们有一个主窗口Form1，上面有一个按钮Button1，以及一个容器Panel1。现在我们想将按钮Button1从主窗口Form1移动到容器Panel1中，可以使用SetParent函数来实现：

// 获取Button1和Panel1的句柄
var
  ButtonHandle: HWND;
  PanelHandle: HWND;
begin
  ButtonHandle := Button1.Handle;
  PanelHandle := Panel1.Handle;
  
  // 将Button1的父控件更改为Panel1
  WinApi.Windows.SetParent(ButtonHandle, PanelHandle);
end;

在上述代码中，我们使用Button1.Handle获取按钮Button1的句柄，使用Panel1.Handle获取容器Panel1的句柄。然后，通过调用SetParent函数将Button1的父控件更改为Panel1。这样，按钮Button1将移动到容器Panel1中。

需要注意的是，使用SetParent函数更改父控件后，原父控件不再拥有被移动的子控件的所有权。因此，在使用SetParent函数时，需要特别注意确保所操纵的窗口句柄的有效性和正确性。

### 回答3：
delphi XE5中的WinApi.Windows.SetParent函数可用于将一个控件的父级窗口设置为另一个窗口。使用该函数可以改变控件的父级窗口，将其移动到不同的容器中或者从一个容器中移除。

下面是一个使用delphi XE5的WinApi.Windows.SetParent函数的示例：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Button1InAnotherForm: TButton;
  AnotherForm: TForm;
begin
  // 创建一个新的窗口
  AnotherForm := TForm.Create(nil);
  AnotherForm.Caption := '另一个窗口';

  // 创建一个按钮并将其父级窗口设置为AnotherForm
  Button1InAnotherForm := TButton.Create(AnotherForm);
  Button1InAnotherForm.Parent := AnotherForm;
  Button1InAnotherForm.Left := 10;
  Button1InAnotherForm.Top := 10;
  Button1InAnotherForm.Caption := '另一个窗口上的按钮';

  // 将AnotherForm显示出来
  AnotherForm.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Button1InAnotherForm: TButton;
  AnotherForm: TForm;
begin
  // 创建一个新的窗口
  AnotherForm := TForm.Create(nil);
  AnotherForm.Caption := '另一个窗口';

  // 创建一个按钮并将其父级窗口设置为AnotherForm
  Button1InAnotherForm := TButton.Create(AnotherForm);
  Button1InAnotherForm.Parent := AnotherForm;
  Button1InAnotherForm.Left := 10;
  Button1InAnotherForm.Top := 10;
  Button1InAnotherForm.Caption := '另一个窗口上的按钮';

  // 将Button1InAnotherForm的父级窗口设置为Form1
  WinApi.Windows.SetParent(Button1InAnotherForm.Handle, Form1.Handle);
end;

end.

在上面的示例中，单击Button1会创建一个新的窗口AnotherForm，并在该窗口上显示一个按钮Button1InAnotherForm。而单击Button2会创建同样的新窗口AnotherForm，并在该窗口上显示一个按钮Button1InAnotherForm，然后使用WinApi.Windows.SetParent函数将Button1InAnotherForm的父级窗口设置为Form1，从而将按钮从AnotherForm移动到Form1上显示。

请问如何用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的控件中。