如何检测WindowState的变化？

Question

如何检测TCustomForm后代的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

操作系统在状态发生变化时发送到窗口的通知是一条WM_SIZE消息.从您发布的代码报价中可以看出这一点,但VCL已经WM_SIZE在TScrollingWinControl类(上升TCustomForm)中监听并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;

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

根据您的要求,您还可以使用OnResize表单的事件.不同之处在于,在操作系统通知窗口有关更改之前,会触发此事件.VCL GetWindowPlacement在TCustomForm处理时通过调用来检索窗口状态信息WM_WINDOWPOSCHANGING.

下面是一个使用标志来跟踪先前窗口状态的示例.

  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;