怎样拦截FORM的最小化事件？

Question

截获非客户区消息
    procedure WMNCMOUSEMOVE(var Message: TMessage);message WM_NCMOUSEMOVE;procedure TForm1.WMNCMOUSEMOVE(var Message: TMessage);
begin
if Message.wParam = HTMINBUTTON//这是最小化
begin
end;
end;

Answer 1

type
  TFM_DL_SRV = class(TForm)
……
……
procedure SysCommand(var msg:TWMSysCommand);message WM_SysCommand;
……
procedure TFM_DL_SRV.SysCommand(var msg: TWMSysCommand);
begin
  if msg.CmdType = SC_MINIMIZE then
  begin
    //你的代码
  end;
  inherited;
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 2

formresize事件中判断窗体的状态。

Answer 3

又学到一招，thanks a lot!

Answer 4

SC_ClOSE为关闭事件
今天，刚学会用！！！