窗体最小化时所需要的......

Question

procedure SysCommand(var msg:TWMSysCommand);message WM_SysCommand; //写在type后private前procedure TForm1.SysCommand(var msg: TWMSysCommand);
begin
  if msg.CmdType = SC_MINIMIZE then
  begin
    msg.cmdtype:= SC_CLOSE;  
  end;
  inherited;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

1.在FORM1自定义过程procedure TForm1.MyMinimized;
2.project-->view source  
在Application.run前
加入：Application.OnMinimized:=Form1.MyMinimized;
可以使主程序最小化时执行Form1.MyMinimized