使表单内的表单在单击时成为焦点

问：

在 Delphi 中，您可以通过更改 TForm.Parent 属性在另一个窗体中创建一个 Form。

有两种方法可以在另一种形式中制作表单

正态 （fsNormal)

下面是在表单中创建表单的示例

  with TForm.Create(Self) do
    begin
      Parent := Self;
      Caption := 'Test 1';

      Width := 350;
      Height := 200;

      Show;
    end;

问题是他们在与他们互动时没有正确行动。捕获焦点只能通过单击标题栏或使用 Form.SetFocus 来工作，它们包含的控件也是如此。窗体将显示在窗体可能包含的任何 TWinControls 或 TGraphicControl 上方。

MDI 表单 （'fsMDIChild'）

执行此操作的正确方法是使用 MDI 表单。喜欢这个：

  Form.Style := fsMDIForm;

  with TForm.Create(Self) do
    begin
      Parent := Self;
      Caption := 'Test 1';

      Width := 350;
      Height := 200;

      FormStyle := fsMDIChild;
      Show;
    end;

  with TForm.Create(Self) do
    begin
      Parent := Self;
      Caption := 'Test 2';

      Width := 350;
      Height := 200;

      FormStyle := fsMDIChild;
      Show;
    end;

并且比形式会正常行动。喜欢这个：

问题

MDI 表单非常适合我的用例，如果不是针对 2 个问题：

1. 边框，称为“ClientEdge”fsMDIForm
2. 窗体内的控件显示在 MDI 窗体上方

第一个问题可以通过覆盖 轻松解决。过程是这样的：ClientWndProc

procedure ShowMDIClientEdge(ClientHandle: THandle; ShowEdge: Boolean);
var
  Style: NativeInt;
begin
  if ClientHandle <> 0 then
  begin
    Style := GetWindowLong(ClientHandle, GWL_EXSTYLE);
    if ShowEdge then
      if Style and WS_EX_CLIENTEDGE = 0 then
        Style := Style or WS_EX_CLIENTEDGE
      else
        Exit
    else if Style and WS_EX_CLIENTEDGE <> 0 then
      Style := Style and not WS_EX_CLIENTEDGE
    else
      Exit;
    SetWindowLong(ClientHandle, GWL_EXSTYLE, Style);
    SetWindowPos(ClientHandle, 0, 0, 0, 0, 0, SWP_FRAMECHANGED or SWP_NOACTIVATE or
      SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER);
  end;
end;

procedure TForm1.ClientWndProc(var Message: TMessage);
begin
  if Message.Msg = $3F then
    begin
      ShowMDIClientEdge(ClientHandle, false);
      Exit;
    end;

  inherited;
end;

但是 MDI 表单出现在我所居住的组件下方的第二个问题无法真正修复。这使得该方法更具吸引力，如果表单能够正常行动并引起焦点。fsNormal

简而言之，我需要另一个表单中的表单，它可以：

• 留在客户端区域内，因此它不能离开或被吸引到客户端之外
• 显示在窗体内的控件上方
• 专注力强

那么，为什么这些表格无法引起焦点呢？fsNormal