Delphi 6 - TApplicationEvents.OnMinimize 未由 "Show Desktop"触发

Question

我有一个 Delphi 6 Pro 应用程序，它在最小化应用程序时执行某些操作。我在属于 TApplicationEvents 组件的 OnMinimize() 事件中完成工作。当使用主窗口控制框上的最小化按钮时效果很好，但是，当使用 Windows XP 显示桌面按钮最小化所有事件应用程序时，不会触发 OnMinimize() 事件。有没有办法解决这个问题，或者我必须在主 WndProc() 中做一些困惑的事情？

--罗施勒

Answer 1

添加

protected
  { Private declarations }
  procedure WMSize(var Message: TWMSize); message WM_SIZE;

哪里

procedure TForm1.WMSize(var Message: TWMSize);
begin
  if Message.SizeType = SIZE_MINIMIZED then
    beep;
end;

当然，你也可以这样做

protected
  { Private declarations }
  procedure WndProc(var Message: TMessage); override;

哪里

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  case Message.Msg of
    WM_SIZE:
      if Message.WParam = SIZE_MINIMIZED then
        beep;
  end;
end;