我找到了2种捕捉onMinimize事件的方法。
首先:在FormResize事件:
if MyForm.WindowState = wsMinimized then ......
第二:声明消息处理程序如下:
procedure WMSize(var Msg: TMessage); message WM_SIZE;
然后:
procedure TForm57.WMSize(var Msg: TMessage);
begin
if Msg.WParam = SIZE_MINIMIZED then ....
end;
哪种方式更好?!
答案 0 :(得分:5)
OnResize
)而触发 WM_SIZE
。除非您需要在VCL处理消息之前做出反应(更新滚动条,对齐控件等),否则您不需要附加消息处理程序。否则,请务必在inherited
调用之前处理它(样本中缺少)。
答案 1 :(得分:1)