我的问题最初始于经典的“害羞对话”问题,主要形式下出现的模态对话间歇性地发生.为了尝试对此进行排序,我将所有模态形式的popupmode更改为pmAuto并添加了
Application.ModalPopupMode：= pmAuto;
和Application.MainFormOnTaskBar：= true;到我的应用程序dpr.
现在我在关闭模态弹出窗口时让主窗体消失在其他窗口后面.我怀疑这种行为主要是在模态窗体打开第二个窗口时出现的(我遇到了MessageDlg和一个直接的Form.create(Application); Form.show;),但是没有明显的问题.显示/免费代码(ShowModal表单创建所有者= nil,无主模式所有者=应用程序).在这两种情况下,表单在关闭第一个原始模态窗体时都会消失,但是在不触发新窗体/对话框的情况下操作模式窗体似乎按预期工作.
在主窗体的后台还有其他恶意事件,它们使用刷新计时器来激活后台线程,但通常在查看它不起作用的时间内没有触发.除此之外,我们通过第三方DLL解雇对远程服务器的调用(该应用程序实际上是客户端GUI).
令人讨厌的是,我无法获得一个模拟行为的迷你程序,并且在IDE中运行会使行为变得困难,因为IDE本身包含许多混淆Z顺序的窗口.
编辑 – 在下面写下我的答案之后,看来我发送了一个停用事件发送到应用程序(我可以通过Application.OnDeactivate捕获它) – 它看起来类似于WPF App loses completely focus on window close Delphi没有c#解决方案有的Activate方法,但我会玩一些Windows消息,看看我是否到达任何地方
解决方法
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,主要形式赢了“隐藏其他形式(只要它们不是未经授权的)