如何检测 WindowState 的变化？

Question

如何检测 WindowState 后代的 WindowState 变化？我希望在 WindowState 属性设置为不同的值时随时收到通知。

我检查了 setter 中是否有事件或虚拟方法，但我没有找到任何可以实现我的目标的东西。

function ShowWindow; external user32 name 'ShowWindow';

procedure TCustomForm.SetWindowState(Value: TWindowState);
const
  ShowCommands: array[TWindowState] of Integer =
    (SW_SHOWNORMAL, SW_MINIMIZE, SW_SHOWMAXIMIZED);
begin
  if FWindowState <> Value then
  begin
    FWindowState := Value;
    if not (csDesigning in ComponentState) and Showing then
      ShowWindow(Handle, ShowCommands[Value]);
  end;
end;

Answer 1

当 OS 的状态发生变化时，OS 发送给 window 的通知是一条 WM_SIZE 消息。从您发布的代码引用中看不出来，但 VCL 已经在 TScrollingWinControl class（TCustomForm 的后代）中侦听 WM_SIZE 并调用虚拟 Resizing 过程在处理消息时。

因此您可以覆盖表单的此方法以获取通知。

type
  TForm1 = class(TForm)
    ..
  protected
    procedure Resizing(State: TWindowState); override;

....

procedure TForm1.Resizing(State: TWindowState);
begin
  inherited;
  case State of
    TWindowState.wsNormal: ;
    TWindowState.wsMinimized: ;
    TWindowState.wsMaximized: ;
  end;
end;

请注意，可以针对给定状态多次发送通知，例如在 window 调整大小时或可见性发生变化时。您可能需要跟踪先前的值以检测状态何时实际更改。

根据您的要求，您还可以使用表单的 OnResize 事件。不同之处在于，此事件在 OS 通知 window 更改之前触发。 VCL 通过调用 GetWindowPlacement 检索 window 状态信息，而 TCustomForm 正在处理 WM_WINDOWPOSCHANGING。

下面是一个使用标志来跟踪先前 window 状态的示例。

  TForm1 = class(TForm)
    ..
  private
    FLastWindowState: TWindowState; // 0 -> wsNormal (initial value)

...

procedure TForm1.FormResize(Sender: TObject);
begin
  if WindowState <> FLastWindowState then
    case WindowState of
      TWindowState.wsNormal: ;
      TWindowState.wsMinimized: ;
      TWindowState.wsMaximized: ;
    end;
  FLastWindowState := WindowState;
end;

如何检测 WindowState 的变化？

How to detect WindowState changes?

forms

delphi

vcl