控制“xxx”没有父窗口

Question

我正在尝试在 Delphi 中编写一个 dll 库，其中包含一个创建 TFrame 后代实例并返回它的函数。但是当我在应用程序中导入这个函数时，每次调用它时我都会得到一个异常，例如“'xxx'控件没有父窗口”。我不是 100% 确定，但是当访问任何 GUI 控件时，异常会出现在该类的构造函数中。

您能告诉我这种行为的原因是什么吗？我应该只使用 TForm 后代还是有更好的解决方案？

谢谢你！

Answer 1

关于错误

该错误消息是从 Controls.pas 单元的 TWinControl.CreateWnd 方法引发的。本质上，该代码用于为您的 TWinControl 后代（TFrame、TButton、TEdit...如果它可以有键盘焦点，那么它就是 TWinControl 后代）创建窗口句柄，这实际上是一个非常明智的错误消息：您不能有没有 WindowParent 的窗口，并且由于我们在这里讨论的是 VCL，因此尝试从 TWinControl.Parent 获取父窗口句柄很有意义；这还没有分配。

这不是弹出错误消息的原因。您会看到该错误消息，因为您用于设置框架的某些代码需要窗口句柄来执行某些操作。它可以是任何东西，比如设置某些组件的标题（内部需要窗口句柄来进行某些计算）。我个人真的很讨厌这种情况发生。当我从代码创建GUI时，我尝试尽可能延迟Parent的分配，以试图延迟窗口的创建，所以我被这个问题困扰了很多次。

特定于您的 DLL 使用情况，可能的修复

我将戴上我的心理读心术帽子。由于您需要从 DLL 返回一个 FRAME，并且您无法返回实际的 Frame，因为这是一个特定于 Delphi 的对象，并且不允许您通过 DLL 边界返回特定于 Delphi 的对象，所以我猜测您正在返回一个窗口句柄，就像所有好的 API 所做的那样，使用如下的函数定义：

function GiveMeTheNiceFrame:HWND;

问题是，该例程需要通过调用 TWinControl.CreateWnd 创建实际的窗口句柄，并在反过来，该调用需要父窗口句柄来设置对 Windows.CreateWindowEx 的调用，并且例程无法获取父窗口句柄，因此会出错。

尝试将您的函数替换为以下内容：

function GiveMeTheNiceFrame(OwnerWindow:HWND):HWND;
begin
  Result := TMyNiceFrame.CreateParanted(OwnerWindow).Handle;
end;

...即：使用 CreateParented(AParentWindow:HWND) 构造函数，而不是通常的 Create(AOwner:TComponent) 和将所有者 HWND 传递给您的 DLL。

Answer 2

有几件重要的事情需要记住：

1. 当使用 DLL 时，您的 DLL 和 EXE 都有一个争夺控制权的应用程序实例。 DLL 中的控件将看到属于该 DLL 的应用程序实例； EXE 中的控件将看到属于该 EXE 的应用程序实例。使用包时就不存在这种困难，因为那时只会有一个应用程序实例。
2. 框架是控件，但它们不是表单。
3. 在应用程序中使用控件时，如果没有父控件（通常是窗体或具有窗体父层次结构的容器），它们就无法在视觉上存在。
4. 某些控件无法公开其全部功能，除非它们可见并具有有效的父控件。

尝试在 EXE 中重现您的问题；如果您无法重现，它可能是上面列表中的第一件事。

——杰罗恩

Answer 3

听起来您只需将保存框架的组件（表单或表单的一部分，如面板）分配给 theframe.parent 。

在分配 GUI 工作之前，您不能执行该工作。框架是表单的一部分，可以重用，通常需要为其分配一些父级。

将 GUI 代码移至 onshow 或您显式调用的过程，以便调用代码可以分配父级。

或者将父级作为函数中的参数。

Answer 4

我发现这个（CreateParams 作为 CreateWnd 的一部分被调用）：

procedure TCustomFrame.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if Parent = nil then
    Params.WndParent := Application.Handle;
end;

并且 Application.Handle = 0 因此它总是在 CreateWnd 中稍后抛出错误。
读完这篇文章后
Delphi：如何在虚拟方法上调用继承的继承祖先？

我已经通过在我的框架中重写 CreateParams 来错过 tCustomFrame 版本来解决这个问题：

type
  tCreateParamsMethod = procedure(var Params: TCreateParams) of object;

type
  tMyScrollingWinControl = class(TScrollingWinControl);

procedure TDelphiFrame.CreateParams(var Params: TCreateParams);
var
  Proc: tCreateParamsMethod;
begin
  TMethod(Proc).Code := @TMyScrollingWinControl.CreateParams;
  TMethod(Proc).Data := Self;

  Proc(Params);
end;

现在，它只是在尝试将焦点设置在子控件上时抛出错误，我想我会通过拦截 WM_FOCUS 来解决这个问题，但我们将如何从这里开始。

function CreateFrame(hwndParent: HWnd): HWnd; stdcall;
var
  frame: tFrame;
begin
  Result := 0;
  try
    frame := TDelphiFrame.CreateParented(hwndParent);
    Result := frame.Handle;
  except on e: Exception do
    ShowMessage(e.Message);
  end;
end;

Answer 5

您可以通过将 nil 分配给父 OnClose 事件来避免此消息，有时它会起作用：

SomeControl.Parent := nil;//Before free your TControl
SomeControl.Free;

Answer 6

我认为这是非常酷的解决方案。我认为以前没有尝试过:)
我正在使用虚拟父级（这是一个表单）。

function MyFrame_Create(hApplication, hwndParent:THandle; X, Y, W, H:Integer):Pointer; stdcall;
var Fr: TMyFrame;
    F:  TForm;
    CurAppHandle: THandle;
begin
  CurAppHandle:=Application.Handle;
  Application.Handle:=hApplication;
  //---
  F:=TForm. Create(Application);//Create a dummy form
  F.Position:=poDesigned;
  F.Width:=0; F.Top:=0; F.Left:=-400; F.Top:=-400;//Hide Form
  F.Visible:=True;
  //---
  Fr:=TMyFrame.Create(Application);
  Fr.Parent:=F;//Set Frame's parent
  //Fr.ParentWindow:=hwndParent;
  Windows.SetParent(Fr.Handle, hwndParent);//Set Frame's parent window
  if CurAppHandle>0 then Application.Handle:=CurAppHandle;
  //---
  Fr.Left:=X;
  Fr.Top:=Y;
  Fr.Width:=W;
  Fr.Height:=H;
  Result:=Fr;
end;//MyFrame_Create

procedure MyFrame_Destroy(_Fr:Pointer); stdcall;
var Fr: TMyFrame;
    F: TObject;
begin
 Fr:=_Fr;
 F:=Fr.Parent;
 Fr.Parent:=Nil;
 if (F is TForm) then F.Free;
 //SetParent(Fr.Handle, 0);
 //Fr.ParentWindow:=0;
 Fr.Free;
end;//MyFrame_Destroy