如何检测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;
答案 0 :(得分:7)
操作系统在状态发生变化时发送到窗口的通知是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
事件。不同之处在于,在操作系统通知窗口有关更改之前,会触发此事件。当GetWindowPlacement
正在处理TCustomForm
时,VCL会通过调用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;