前面定义procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SysCommand;
procedure TfrmFrame.WMSysCommand(var Msg: TWMSysCommand); 
begin 
  case Msg.CmdType of 
    SC_MINIMIZE: begin 
      ShowWindow(Handle, SW_MINIMIZE); 
(**)  Application.Minimize; 
//(**)  ShowWindow(Application.Handle, SW_HIDE); 
(**)  ShowWindow(Handle, SW_MINIMIZE); 
    end; 
    SC_RESTORE: begin 
(**)  Application.Restore; 
      ShowWindow(Handle, SW_RESTORE); 
(**)  ShowWindow(Application.Handle, SW_HIDE); 
    end; 
    else 
      inherited; 
  end; 
end;
我以在使用了