8

我有以下问题：我们正在构建一个相当大的应用程序（win32，Delphi 6 Enterprise）。在应用程序的几个部分中，使用了模态窗口，通常包含选择主窗口的详细信息。

我们对 WM_SYSCOMMAND 消息的处理进行了修改，这样，如果窗口是模态的，则 SW_SHOWMINNOACTIVE 消息将被发送到应用程序的主窗口。这会导致整个应用程序被最小化，而不仅仅是模态表单。

但是，在特定情况下会出现一个问题：如果调用窗口设置为全屏，那么在恢复时，模式窗口将出现在（禁用）最大化的主窗口下（这似乎发生在 Windows 7 上）

我的问题有两个：

首先，当应用程序恢复时，我似乎没有收到任何 syscommand 消息，因此我无法引入代码来恢复 Z-Order，因为我不知道将它放在哪里。其次，在我看来，如果整个应用程序被最小化，单击任务栏中的应用程序按钮应该将其恢复到相同的状态，而不是在它下面有一个模态窗口。有没有办法解决这个问题？

编辑：我们做了一些额外的测试，看起来我们实际上可以在主窗体的 WM_ACTIVATE 处理程序中检测到问题。我们还可以在那个阶段识别模态窗口。但是，我无法找到将其恢复到 Z-Order 顶部的方法。

Edit2：这是在模态表单最小化时最小化应用程序的代码：

procedure TfmGITForm.WMSysCommand(var Message: TWMSysCommand);
begin
  if (fsModal in FormState) or
      not Application.MainForm.Visible then
  begin
    case Message.CmdType of
      SC_MINIMIZE:
      begin
        ShowWindow(Application.Handle, SW_SHOWMINNOACTIVE);
      end;
      SC_RESTORE:
      begin
        ShowWindow(Application.Handle, SW_SHOWNORMAL);
        inherited;
      end;
    else
      inherited;
    end;    // case
  end
  else
    inherited;
end;

我们所有的形式都源自那个形式。

4

2 回答 2

3

覆盖对话框的CreateParams功能并设置Params.WndParent为全屏窗口（或者Owner.Handle如果您拥有正确的东西）。默认为Application.Handle，这将导致此类问题。在后来的 Delphi 版本中引入的PopupParent属性完全相同。

于 2011-06-10T15:31:43.643 回答
1

这与（我认为）XP 中引入的 Windows 窗口重影有关。我在这些操作系统上的 D5 应用程序中遇到了同样的问题。Peter below 当时提供了以下工作，它仍然对我有用：

procedure DisableProcessWindowsGhosting;
type
  TDisableProcessWindowsGhostingProc = procedure; stdcall;
const
  sUser32 = 'User32.dll';
var
  ModH: HMODULE;
  _DisableProcessWindowsGhosting: TDisableProcessWindowsGhostingProc;
begin
  ModH := GetModuleHandle(sUser32);
  if ModH <> 0 then begin
    @_DisableProcessWindowsGhosting := nil;
    @_DisableProcessWindowsGhosting := GetProcAddress(ModH,
        'DisableProcessWindowsGhosting');
    if Assigned(_DisableProcessWindowsGhosting) then begin
      _DisableProcessWindowsGhosting;
    end;
  end;
end;

我在应用程序主窗体的 OnCreate 处理程序的开头调用它。

于 2011-06-10T11:32:16.503 回答