如何检测WindowState的变化？

Question

如何检测WindowState后代的TCustomForm更改？我希望在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已经侦听了TScrollingWinControl类中的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;