我开始遇到问题,我的主要表单在关闭模式表单后面的其他应用程序窗口后消失了,我希望有人会遇到(并解决!)此问题之前或者有关于在哪里找到断点来调试问题的建议.
我的问题最初始于经典的"害羞对话"问题,主要形式下出现的模态对话间歇性地发生.为了试图解决这个我改变了我的所有模式表单popupmode来pmAuto,也加入
Application.ModalPopupMode := pmAuto;
和Application.MainFormOnTaskBar := true;我的应用程序DPR.
现在我在关闭模态弹出窗口时让主窗体消失在其他窗口后面.我怀疑这种行为主要是因为当一个模态窗体打开第二个窗口时(我遇到a MessageDlg和a 都有问题Form.create(Application); Form.show;),虽然show/free代码没有明显的问题(ShowModal表单创建所有者= nil ,无主模式=应用程序).在这两种情况下,表单在关闭第一个原始模态窗体时都会消失,但是在不触发新窗体/对话框的情况下操作模式窗体似乎按预期工作.
在主窗体的后台还有其他恶意事件,它们使用刷新计时器来激活后台线程,但通常在查看它不起作用的时间内没有触发.除此之外,我们通过第三方DLL解雇对远程服务器的调用(该应用程序实际上是客户端GUI).
令人讨厌的是,我无法获得一个模拟行为的迷你程序,并且在IDE中运行会使行为变得困难,因为IDE本身包含许多混淆Z顺序的窗口.
编辑 - 在下面写下我的答案之后,看来我正在发送一个停用事件发送到应用程序(我可以通过Application.OnDeactivate捕获它) - 它似乎类似于WPF应用程序丢失完全专注于窗口关闭 Delphi没有激活c#解决方案所具有的方法,但我会玩一些Windows消息来查看我是否到达任何地方
按照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似乎已经对问题进行排序之前改变了要销毁的启动画面的生命周期 - 这是我从未猜到过的事情,这将是百万年来的原因.
一旦我摆脱了这个小调试形式,它需要最终签署它不再出现,但希望几天令我感到沮丧的问题现在已经整理好了 - 谢谢!
编辑
正如我在编辑中注意到的以及对此问题的评论,上述调试无效,因为新表单的存在"修复"了问题.更改代码以便将输出发送到事件日志或文本文件而不是需要表单也没有显示任何内容 - Z顺序中的所有表单都保留在原位.
最后,通过将以下代码附加到Application.OnModalEnd,我能够修复症状而不是原因.
if Application.ModalLevel = 0 then
Windows.SetActiveWindow(Application.MainFormHandle);
在最后一个模态对话框关闭后,这会成功将活动窗口设置回主窗体.
如果用户期望非模态形式不是重新获得焦点的主要形式,这可能会产生一些副作用,但我们的应用程序架构并不真正遵循这种结构Application.MainFormOnTaskbar,并且主要形式不会隐藏其他形式(只要它们不是非专利的)