Delphi：在dll中定位表单

Question

我正在 dll 中创建一个表单。没有包裹。使用导出的过程调用dll中的窗体：

procedure ShowAbout(const AppHandle: THandle); stdcall;
  var
    aHandle: THandle;
    form:  TfrmAbout;  / my form in some other unit in the dll
  begin

    aHandle:= Application.Handle;
    Application.Handle:= AppHandle;

    form :=TfrmAbout.Create(Application);
    form.ShowModal;
    form.Free;
    Application.Handle:= aHandle;
  end;

窗体显示良好，没有问题。现在，我唯一希望它做的就是将其定位为 poMainFormCenter （我希望它始终显示在主窗体（调用 dll 的窗体）上）。

我尝试使用 form :=TfrmAbout.Create(Application .MainForm）；等等，但没有

什么技巧可以帮助这里？

Answer 1

VCL Position 机制依赖于应用程序中所有使用相同版本的 VCL 运行的其他表单。显然这里的情况并非如此，您必须手动定位表单。

通过调用 找出主窗体的位置GetWindowRect() 传递主窗体句柄。然后，您需要计算出您的表单需要位于该表单中心的位置。

procedure PositionForm(Form: TForm; MainWindow: HWND);
var
  MainBounds: TRect;
  MainWidth, MainHeight: Integer;
begin
  if GetWindowRect(MainWindow, MainBounds) then
  begin
    MainWidth := MainBounds.Right-MainBounds.Left;
    MainHeight := MainBounds.Bottom-MainBounds.Top;
    Form.Left := MainBounds.Left + (MainWidth - Form.Width) div 2;
    Form.Top := MainBounds.Top + (MainHeight - Form.Height) div 2
  end;

顺便说一句，您传递的句柄是 HWND 而不是 THandle。您应该相应地更改代码。它不会改变行为，但这样做在逻辑上是正确的。

Answer 2

由于您不使用软件包，因此您的 EXE 和 DLL 都有一个单独的 TApplication 实例。 EXE 中的 TApplication.MainForm 在 DLL 中看不到。更改 TApplication.Handle 不会使 MainForm 发生更改。找到其他方法来正确定位表单，但更好的是：使用包，如果不这样做，您将遇到更多问题。

Answer 3

您是否尝试过将 form.ParentWindow 设置为父窗口的句柄？您应该将其作为参数传递给 ShowAbout，或者您可以从 Application 对象（例如 Application.ActiveForm）中挖掘它，但我不确定它是否有效。

调用 TfrmAbout.Create(Application.MainForm) 只是指定 Application.MainForm 负责销毁表单，它应该与窗口层次结构无关，而且我不确定您应该使用如果您在单独的 dll 中创建表单，则会自动销毁。