Question

我开始遇到问题，我的主要表单在关闭模式表单后消失在其他应用程序窗口后面，我希望有人会遇到（并解决！）此问题之前或者有关于在哪里找到断点进行调试的建议问题。

我的问题最初始于经典的“害羞对话”问题，主要表格下出现的模态对话框间歇性地出现。为了尝试对此进行排序，我将所有模态表单“popupmode更改为pmAuto”并添加了 Application.ModalPopupMode := pmAuto; 和Application.MainFormOnTaskBar := true;到我的申请dpr。

现在我在关闭模态弹出窗口时让主窗体消失在其他窗口后面。我怀疑这种行为主要是在模态表单打开第二个窗口时出现的（我遇到了MessageDlg和直接Form.create(Application); Form.show;的问题），尽管show /没有明显的问题免费代码（ShowModal表单创建所有者= nil，无主模式所有者=应用程序）。在这两种情况下，关闭第一个原始模态窗体时窗体都会消失，但是在不触发新窗体/对话框的情况下操作模态窗体似乎按预期工作。

在主窗体的后台还有其他恶意事件，它们使用刷新计时器来激活后台线程，但通常在查看它不起作用的时间内没有触发。除此之外，我们通过第三方DLL解雇对远程服务器的调用（该应用程序实际上是客户端GUI）。

令人讨厌我无法得到一个迷你程序来模仿行为，并且在IDE中运行会让行为变得困难，因为IDE本身包含许多混淆了Z顺序的窗口。

编辑 - 在下面写下我的答案之后，看来我发送了一个停用事件发送到应用程序（我可以通过Application.OnDeactivate捕获它） - 它看起来类似于WPF App loses completely focus on window close Delphi没有激活c＃解决方案所具有的方法，但我将使用一些Windows消息来查看我是否到达任何地方

Answer 1

根据David在评论中的建议，我创建了一个在启动时创建的包含备忘录，计时器和以下OnTimer事件的小日志表单：

procedure TForm1.Timer1Timer(Sender: TObject);
  function logtomemo(aHandle: HWND): TWinControl;
  var
    form: TWinControl;
  begin
    form := findControl(ahandle);
    if form <> nil then
      memo1.Lines.Add(format('handle %d - form %s', [ahandle, form.Name]));
    result := form;
  end;
var
  handle: HWND;
  form: TWinControl;

begin
  memo1.Clear;
  handle := application.ActiveFormHandle;
  repeat
    form := logtomemo(handle);
    handle := GetWindow(handle, GW_OWNER);
  until (handle = application.MainFormHandle) or (form = nil);
  logtomemo(handle);
end;

点击我注意到，只要我点击应用程序外部，我们的启动表单就会成为列表中唯一的表单。（从历史上看，我们的启动画面过去只能在Application.Run之后释放，因为它们之前由于某种原因保留了一些其他引用 - 在我的时间之前并且不再需要了。）

在Application.Run似乎对问题进行排序之前，更改要销毁的启动画面的生命周期 - 这是我一直猜不到的事情，这将是百万年来的原因。

一旦我摆脱了这个小调试形式，它需要最终签署它并不会再出现，但希望几天让我感到沮丧的问题现在已经整理好了 - 谢谢！< / p>

修改

正如我在编辑中注意到的以及对此问题的评论，上述调试无效，因为新表格的存在已经修复了。问题。更改代码以便将输出发送到事件日志或文本文件而不是要求表单也没有显示任何内容 - Z顺序中的所有表单都保留在原位。

最后，通过将以下代码附加到Application.OnModalEnd
，我能够修复症状而不是原因。
if Application.ModalLevel = 0 then Windows.SetActiveWindow(Application.MainFormHandle);

在最后一个模态对话框关闭后，这会成功将活动窗口设置回主窗体。

如果用户期望非主要形式不是重新获得焦点的主要形式，这可能会产生一些副作用，但我们的应用程序架构并不真正遵循这种结构并使用{{ 1}}，主要形式不会隐藏其他形式（只要它们不是未标记的）

Delphi应用程序主窗体在模态关闭后移动到其他窗口后面

1 个答案: