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

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似乎已经对问题进行排序之前改变了要销毁的启动画面的生命周期 – 这是我从未猜到过的事情,这将是百万年来的原因.

一旦我摆脱了这个小调试形式,它需要最终签署它不再出现,但希望几天令我感到沮丧的问题现在已经整理好了 – 谢谢！

编辑

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

最后,通过将以下代码附加到Application.OnModalEnd,我能够修复症状而不是原因.

if Application.ModalLevel = 0 then
  Windows.SetActiveWindow(Application.MainFormHandle);

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

如果用户期望非模态形式不是重新获得焦点的主要形式,这可能会产生一些副作用,但我们的应用程序架构并不真正遵循这种结构,并且使用Application.MainFormOnTaskbar,主要形式赢了“隐藏其他形式(只要它们不是未经授权的)